home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / C-Communications / (c)c8.d64 / spence system (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  35KB  |  1,036 lines
  1. 0 POKE53281,0:POKE53280,11:GOTO390
  2. 1 GOTO2820
  3. 2 GOTO2240
  4. 3 GOTO770
  5. 4 GOTO2350
  6. 5 GOTO2270
  7. 6 SYS52111:RETURN
  8. 7 GOTO55010
  9. 8 PRINT" ":PRINT#5,CHR$(10):RETURN
  10. 9 INPUT#1,A,B$,C,D:PRINTA;B$;C;D:RETURN
  11. 230 GOTO2450
  12. 240 GOTO2149
  13. 260 GOTO1940
  14. 390 OPEN5,2,0,CHR$(6)+CHR$(0)
  15. 391 R$=CHR$(13):Q$=CHR$(34):CB$(1)=R$+"[212]RY [198]ILE [206]OT [198]OUND AT 621-3858 24HRS"+R$
  16. 392 P$=",S,R":O$=",S,W":CB$(2)=R$+"[212]RY [205][207][207][206][210][201][211][197] AT 469-3305 11PM-7AM"+R$
  17. 393 CB$(3)=R$+"[212]RY [195][212][211] [194][194][211][160]AT 283-0851 10PM-7AM"+R$
  18. 394 CB$(4)=R$+"[212]RY [208]ROBOTICS AT 622-7198 24HRS"+R$
  19. 400 DIML$(48),US(26):SS$=CHR$(160):POKE650,128
  20. 404 A5$="[211][217][211][207][208]"
  21. 405 N5$="    [211]PENCE [194][194][211] [211]YSTEM":REM YOUR BOARD'S NAME
  22. 406 N6$="    -----------------":REM UNDERLINE FOR TITLE
  23. 407 CLOSE9:A$="SYSOP"+P$:OPEN9,8,2,A$:INPUT#9,SY$:CLOSE9:SY=VAL(SY$)
  24. 408 PRINT"[151]    [211]YSOP HAS "SY$
  25. 409 OPEN9,8,2,"ALL COUNT"+P$:INPUT#9,AL$:CLOSE9:AL=VAL(AL$)
  26. 410 DEFFNA(X)=ABS(INT(VAL(LEFT$(I$,3)))):PRINT"[205]ESSAGES:"AL
  27. 420 A$="US"+P$:CLOSE15:OPEN15,8,2,A$:FORWW=1TO26:INPUT#15,US$:US(WW)=VAL(US$)
  28. 421 US=US+US(WW):NEXT:CLOSE15:PRINT"[213]SERS:"US:GOTO1000
  29. 430 L5=0:L6=45:POKE997,L5:POKE998,L6:REMCONNECT TIME LIMIT (L6=MINS, L5=HOURS)
  30. 580 LS=0:CLOSE2:CLOSE3:F=1:J9$="[213]"
  31. 590 NU$="":I$="":DE$="":XP=0:LK$="":BS=255:LJ$=""
  32. 591 J9=0:DX=1:PA$="[198]":CLOSE2:CLOSE1:LP$=""
  33. 592 POKE1023,0:POKE1022,0:POKE1021,0
  34. 593 GET#5,A$:IFA$>""THEN593
  35. 594 D1=PEEK(999):D2=PEEK(1000):DY$=STR$(D1):MO$=STR$(D2)
  36. 595 DY$=RIGHT$(DY$,LEN(DY$)-1):MO$=RIGHT$(MO$,LEN(MO$)-1)
  37. 596 IFLEN(DY$)=1THENDY$="0"+DY$
  38. 597 IFLEN(MO$)=1THENMO$="0"+MO$
  39. 598 Y2=PEEK(1001):Y3=PEEK(1002)
  40. 599 YR=Y2+Y3*256:YR$=STR$(YR):YR$=RIGHT$(YR$,LEN(YR$)-1)
  41. 600 D$="               "+DY$+"/"+MO$+"/"+YR$
  42. 610 POKE971,0:LV$=""
  43. 619 POKE665,81:POKE666,13:SYS861:ER=0:PRINT"[212]IME: ";
  44. 620 POKE1022,0:SYS820:CN=0
  45. 670 IFPEEK(1022)=32THENPOKE1022,0:GOTO710
  46. 675 GETA$:IFA$="[204]"THENXP=1:SYS861:POKE665,84:POKE666,3:BR=1200:GOTO720
  47. 677 IFVAL(TI$)<10000ANDPEEK(1018)<>1THENFLAG=1:GOSUB7000:GOTO670
  48. 678 IFVAL(TI$)>10000THENPOKE1018,0
  49. 680 PRINTTI$"[157][157][157][157][157][157]";:GOTO670
  50. 710 CW$="":NU$="":PRINTR$+"[129] [210]ING [151]":F=1:LS=0:POKE1022,0:POKE1021,0:GOSUB2861:ER=0
  51. 711 BR=300:IFLK$="[199]"THEN580
  52. 712 GOSUB54100:GOTO731
  53. 720 PRINTR$;:CW$="":NU$="":F=0:LS=1:POKE1021,255
  54. 731 GOSUB3300:IFLK$="[199]"THEN590
  55. 732 SU$="[207][203]":IFLK$="B"THENSYS861:GOSUB901:GOTO590
  56. 733 EC=1:CT=TI:IFLV$="[206]"THENF$="WELCOME":GOSUB5
  57. 736 SC=0:GOSUB55020:IFSC<2THENF$="INTRO":GOSUB5
  58. 737 A$=R$+"# OF [213]SERS"+STR$(US):GOSUB2
  59. 738 A$=R$+"# OF [205]ESSAGES"+STR$(AL)+R$:GOSUB2
  60. 739 A$="[204]OG IN AT "+LEFT$(TI$,4)+"H"+R$:GOSUB2
  61. 740 IFSC>0THENXP=1:CN=1:A$="[195]ONTINUOUS"+R$:GOSUB2
  62. 741 IFLV$<>"[206]"THENGOSUB14310
  63. 742 GOTO3
  64. 743 F$="COMMANDS":GOSUB5:GOTO3
  65. 770 IFLK$="[199]"THENA$=R$+"[196]ELAY [212]IME [197]XPIRED":GOSUB2:GOTO9000
  66. 771 LD$="":J9=0:GOSUB6200:IFLK$="[217]"THEN6100
  67. 772 POKE1021,0
  68. 774 IFXP>0THENA$=R$+"[195]> ":GOSUB2:GOTO776
  69. 775 A$=R$+"[195]OMMAND > ":GOSUB2
  70. 776 IFDX=1THENLJ$=""
  71. 777 GOSUB4:IFLK$="[199]"THEN3
  72. 778 IFLEN(I$)>8THEN870
  73. 779 GOSUB6:IFLEFT$(I$,1)="[210]"ORLEFT$(I$,1)="[198]"THENGOSUB7:GOTO16000
  74. 781 IFJ9$="[195]"THEN4205
  75. 783 IFI$="[201]"THENGOSUB7:GOTO3999
  76. 797 IFLEFT$(I$,4)="[194][193][213][196]"ANDLV$=""THEN16200
  77. 798 IFI$="[197][196][201][212]"THEN15930
  78. 799 IFI$="[195][207][206][212]"THEN15910
  79. 800 IFI$="[204][201][211][212]"THENGOSUB7:GOTO52630
  80. 801 IFI$="[204][207][193][196]"ANDLV$=""THEN52300
  81. 802 IFI$="[211][193][214][197]"ANDLV$=""THEN52500
  82. 804 IFI$="[196][208]"ANDLV$=""THEN51000
  83. 805 IFI$="[195][204]"THEN5200
  84. 806 IFI$="[204][199]"THEN5300
  85. 835 IFI$="[194]"THENGOSUB7:GOTO910
  86. 840 IFI$="[196]"THEN5500
  87. 845 IFI$="[205]"ANDLV$=""THENGOSUB7:GOTO4500
  88. 851 IFI$="[216]"THEN6000
  89. 852 IFI$="[207]"ANDLV$=""THEN15000
  90. 853 IFI$="[197]"THEN14000
  91. 855 IFI$="[213]"ANDLV$=""THENGOSUB7:GOTO31000
  92. 857 IFI$="[195]"THEN4002
  93. 858 IFI$="[196][205]"THEN5100
  94. 859 IFI$="[212]"THEN4090
  95. 860 IFI$="?"ORI$="[200]"THENGOSUB7:GOTO743
  96. 869 IFI$="[209]"THEN878
  97. 870 IFI$<>"[199]"THENA$=R$+"? OR [200] FOR [200]ELP":GOSUB2:GOTO3
  98. 871 J9=1:IFPO>0THEN878
  99. 872 A$=R$+"[217]OU [211]URE? ":GOSUB2:GOSUB4:IFI$=SS$THEN878
  100. 873 GOSUB1:IFA$="Y"ORA$="[217]"THEN878
  101. 876 IFA$="N"ORA$="[206]"THEN3
  102. 877 GOTO872
  103. 878 POKE54296,0:PA$="[198]":LO$=TI$:GOSUB8
  104. 890 GOSUB13000:A$="[195]ONNECT [212]IME > "+T9$:GOSUB2
  105. 895 A$=R$+"[199]OOD [194]YE":GOSUB2
  106. 900 DA=0:SYS861:GOSUB901:GOTO580
  107. 901 SP$="                            ":SP=26-LEN(NU$):POKE1023,0
  108. 902 A$=NU$+LEFT$(SP$,SP):A$=A$+LEFT$(LI$,4)+"H-":A$=A$+LEFT$(TI$,4)+"H":PRINTA$
  109. 903 F$="@:USER.ADD"+O$:CLOSE2:OPEN2,8,2,F$:PRINT#2,A$
  110. 904 F$="C:USER LOG.2=USER.ADD,USER LOG":CLOSE2:OPEN2,8,15,F$
  111. 905 F$="S:USER LOG":CLOSE2:CLOSE1:IFLP$="[196][201][211]"THENGOSUB2:LP$=""
  112. 906 OPEN1,8,15,F$:F$="R:USER LOG=USER LOG.2":PRINT#1,F$:CLOSE1:RETURN
  113. 910 F$="BULLETINS":GOSUB5
  114. 920 GOSUB6200:IFLK$="[217]"THEN6100
  115. 921 IFXP>0THENA$=R$+"[194]#>":GOSUB2:GOTO930
  116. 925 A$=R$+"[210][197][212][213][210][206] [193]BORTS ([204][201][211][212] FOR MENU)"+R$+"[194]ULLETIN [206]UMBER?"+R$+">":GOSUB2
  117. 930 GOSUB4:IFI$=SS$THEN3
  118. 931 IFLK$="[199]"THEN3
  119. 932 GOSUB1:GOSUB6
  120. 934 IFI$="0"THENF$="INTRO":GOTO955
  121. 936 IFI$="[204][201][211][212]"THEN910
  122. 937 IFI$="[214][193][216]"THENF$="BULLETIN-[214][193][216]":GOSUB15800:REM NAME OF SECRET BULLETIN
  123. 938 IFII$="[217]"THENII$="":GOTO955
  124. 939 IFLEN(I$)>2THENZZ=55:GOTO941
  125. 940 ZZ=VAL(I$):IFZZ=0THENZZ=51
  126. 941 IFZZ>50THENA$=R$+"[201]NVALID [194]ULLETIN [206]UMBER":GOSUB2:GOTO920
  127. 950 I$=STR$(ZZ):F$="BULLETIN-"+RIGHT$(I$,LEN(I$)-1)
  128. 955 F1$=F$+P$
  129. 960 GOSUB5:KH=TI:IFC9$="[193]"THEN3
  130. 970 IFA>1THENI$="0":GOTO940
  131. 990 GOTO920
  132. 1000 L5=PEEK(997):L6=PEEK(998):POKE996,0
  133. 1001 CT=PEEK(1020):CLOSE1:OPEN1,8,15,"I":CLOSE1:IFCT=2THENOPEN1,9,15,"I":CLOSE1
  134. 1002 Y2=PEEK(1001):Y3=PEEK(1002)
  135. 1003 YR=Y2+Y3*256:YR$=STR$(YR):YR$=RIGHT$(YR$,LEN(YR$)-1)
  136. 1005 D1=PEEK(999):D2=PEEK(1000):DY$=STR$(D1):MO$=STR$(D2)
  137. 1006 DY$=RIGHT$(DY$,LEN(DY$)-1):MO$=RIGHT$(MO$,LEN(MO$)-1)
  138. 1007 IFLEN(DY$)=1THENDY$="0"+DY$
  139. 1008 IFLEN(MO$)=1THENMO$="0"+MO$
  140. 1009 NU$="":FORX=971TO995:IFPEEK(X)=0THEN1011
  141. 1010 A=PEEK(X):A$=CHR$(A):NU$=NU$+A$:NEXT
  142. 1011 IFPEEK(1023)=0ANDNU$=A5$THENNU$="* "+NU$
  143. 1012 IFPEEK(1023)=0THEN1016
  144. 1014 LI$="":FORX=965TO970:A=PEEK(X):A$=CHR$(A):LI$=LI$+A$:NEXT
  145. 1015 IFNU$<>A5$THENNU$="!"+LEFT$(NU$,24):GOSUB901
  146. 1016 D$="               "+DY$+"/"+MO$+"/"+YR$:GOTO580
  147. 1940 LQ$="[136]":LK$="[136]":IFEN=1THENA$="[198]":I$="[198]0":EN=9:GOTO1970
  148. 1943 IFXP>0THENA$=R$+"[197]> ":GOSUB2:GOTO1955
  149. 1945 IFEN=8ORXP>0THENA$=R$+"[193],[195],[196],[197],[198],[200],[201],[204],[210],[211],?":GOSUB2:A$="[197]> ":GOSUB2:GOTO1955
  150. 1950 EN=8:A$=R$+"[[193]]BORT   [[195]]ONTINUE [[196]]ELETE  [[197]]DIT":GOSUB2
  151. 1951 A$="[[198]]ORMAT  [[201]]NSERT   [[204]]IST    [[211]]END":GOSUB2
  152. 1952 A$="[[210]]EPLACE ([210]/[211][197][193][210][195][200]$/[210][197][208][204][193][195][197]$/[204][201][206][197] #)":GOSUB2
  153. 1953 A$="[[200]]ELP OR [?] FOR [200][197][204][208] [204]IST":GOSUB2:IFXP>0THENA$="[197]> ":GOSUB2:GOTO1955
  154. 1954 A$=R$+"[195]OMMAND ([197]) > ":GOSUB2
  155. 1955 M3=0:GOSUB4:IFLK$="[199]"THENRETURN
  156. 1956 IFI$=SS$THEN1940
  157. 1960 A$=LEFT$(I$,1):IFA$="R"ORA$="[210]"THEN15300
  158. 1965 GOSUB6:A$=LEFT$(I$,1)
  159. 1968 IFA$="?"ORA$="[200]"THENGOTO1950
  160. 1970 IFA$="[198]"ORA$="[204]"ORA$="[197]"ORA$="[196]"THEN15510
  161. 1973 IFA$="[193]"THENLK$="":LQ$="":A$="[193]BORT":RETURN
  162. 1974 IFA$="[201]"THEN15460
  163. 1980 IFA$="[211]"THENLK$="":LQ$="":A$="[211]END":RETURN
  164. 1981 IFA$="[195]"THENC7$=A$:CT=LL:RETURN
  165. 1982 GOTO1953
  166. 1983 IFL>LL-1THENA$="[204]INE [207]UT OF [210]ANGE":GOSUB2:GOTO1940
  167. 1991 A$=RIGHT$(STR$(L),LEN(STR$(L))-1):IFLEN(A$)=1THENA$="0"+A$
  168. 1992 AA$=A$
  169. 1995 A$=AA$+"> "+L$(L):GOSUB2
  170. 2000 A$=AA$+"> ":GOSUB2:GOSUB4:IFLK$="[199]"THENRETURN
  171. 2001 IFI$=SS$ANDI2=1THENI2=0:GOTO1940
  172. 2002 FORWW=1TOLEN(I$)
  173. 2003 IFMID$(I$,WW,1)=Q$THENI$=LEFT$(I$,WW-1)+""+RIGHT$(I$,LEN(I$)-WW)
  174. 2004 NEXT
  175. 2005 L$(L)=I$:GOTO1940
  176. 2010 FORX=0TOLL:A$=L$(X):GOSUB2:NEXT:GOTO1940
  177. 2149 IF(PEEK(56577)AND64)>0ANDLS<>1THENLK$="[199]":A$="":RETURN
  178. 2150 A=0:GETA$:IFA$=""THEN2160
  179. 2151 A=ASC(A$):IFA<133ORA>140THEN2158
  180. 2152 IFA$="[138]"THENPOKE665,81:POKE666,13:PRINT" ":PRINT"[215][198][195]":PRINT" [146][151][157]";:SYS820:GOTO2150
  181. 2153 IFA$="[137]"THENPRINTR$"[212]ERMINAL [205]ODE":POKE56577,32:SYS49167:GOTO2150
  182. 2154 IFA$="[133]"THENPOKE54296,0:PRINT" ":PRINT"[213]SER: [152]"NU$"[151]"CW$R$" [151][146][157]";:GOTO2150
  183. 2155 IFA$="[136]"THENGOSUB4150:GOTO2150
  184. 2156 GOTO22999
  185. 2157 IFA$="[139]"THEN15700
  186. 2158 IFA$=""THEN11000
  187. 2159 SYS52304:KH=TI:EK=1:GOTO2170
  188. 2160 IFPA$="[207]"THENPOKE54296,15:WW=PEEK(162):GOSUB4100
  189. 2161 EK=0:GET#5,A$:IFA$=""THENEC=1:RETURN
  190. 2162 IFA$=""THEN11000
  191. 2170 KH=TI:P=0:A=ASC(A$):IFA>127THENA=A-128:A$=CHR$(A)
  192. 2174 IFA=34THENPRINTQ$;CHR$(20);
  193. 2180 IFA>31ANDA<123ORA>192ANDA<219THEN2210
  194. 2190 IFA=8ORA=13ORA=20THEN2210
  195. 2200 A$="":A=0:RETURN
  196. 2210 IFEC=0THEN2218
  197. 2211 IFA$=CHR$(20)THENA$=CHR$(8):A=8
  198. 2212 IFEK=1ANDLJ$="[200]"ANDA=8THENPRINT#5,CHR$(8);
  199. 2216 IFECANDA=8THENRETURN
  200. 2217 IFECANDLJ$<>"[200]"THENPRINT#5,A$;:EK=0:GOTO2220
  201. 2218 IFEK=1THENPRINT#5,A$;:EK=0
  202. 2220 SYS52384:IFECANDA>31THENPRINTA$" [146][151][157]";
  203. 2222 IFECANDA=13THENPRINT" ":PRINT#5,CHR$(10);
  204. 2230 EC=1:RETURN
  205. 2240 C9$="":CT$="":SYS50832
  206. 2253 IFRIGHT$(A$,1)<>""THENGOSUB15600
  207. 2260 RETURN
  208. 2270 F$=F$+P$:CLOSE1:CLOSE2:OPEN1,8,15:OPEN2,8,2,F$:INPUT#1,A:IFA>1THENRETURN
  209. 2280 GOSUB8
  210. 2290 INPUT#2,A$:S=ST:GOSUB2:IFCT$="[193]"THENCLOSE2:RETURN
  211. 2295 IFSTHENL$=A$:GOTO2660
  212. 2300 GOTO2290
  213. 2350 I2=0:I$="":KH=TI
  214. 2360 GOSUB240:IFLK$="[199]"OR(J9$="[195]"ANDJ9=0)THENI$=SS$:RETURN
  215. 2362 IFA>0THENKH=TI:GOTO2370
  216. 2365 IFTI-KH<0THENKH=1
  217. 2366 IFTI-KH>7200THENLK$="[199]":I$=SS$:RETURN
  218. 2367 GOTO2360
  219. 2370 IFA>34THEN2400
  220. 2371 IFA=32THENA$=SS$
  221. 2375 IFA=34THENA=1:A$=""
  222. 2381 IFA=13THEN2420
  223. 2385 IFA=8ANDLEN(I$)THENPRINT"[157]";:I$=LEFT$(I$,LEN(I$)-1):IFLJ$<>"[200]"THENPRINT#5,CHR$(8);
  224. 2390 IFA=8ORA=20THENPRINT" [146] [151][157][157]";:GOTO2360
  225. 2400 IFLEN(I$)=38THENPRINTCHR$(20);:PRINT#5,CHR$(8);:GOTO2360
  226. 2410 I$=I$+A$:GOTO2360
  227. 2420 IFI$=""THENI$=SS$:I2=1
  228. 2440 RETURN
  229. 2450 LD$="[136]":LK$="[136]":EX=0:LL=0:FORL=0TO48:IFL=48THENEX=1:A$="[207]UT OF [211]PACE":GOSUB2:L=49
  230. 2451 IFEX=1THEN2490
  231. 2452 IFC7$="[195]"THENL=CT:LL=CT:C7$="":CT=0
  232. 2455 A$=STR$(L):A$=RIGHT$(A$,LEN(A$)-1):IFLEN(A$)=1THENA$="0"+A$
  233. 2460 A$=A$+"> ":GOSUB2:GOSUB4:IFLK$="[199]"THENI$=SS$:I2=1
  234. 2470 IFI2=1THENEX=1:I2=0
  235. 2480 L$(L)=I$:NEXT
  236. 2490 LL=L:RETURN
  237. 2660 CLOSE15:OPEN15,8,15:INPUT#15,A,B$,C,D
  238. 2670 IFA=0OR((ST)AND64)THEN2700
  239. 2680 A$="[197]RROR -"+B$:PRINTA$:A$=""
  240. 2700 CLOSE2:CLOSE3:CLOSE15:RETURN
  241. 2820 IFI$=""THENRETURN
  242. 2821 IFASC(I$)>192THENA$=CHR$(ASC(I$)AND127):A=ASC(A$):RETURN
  243. 2830 A$=LEFT$(I$,1):A=ASC(A$):RETURN
  244. 2861 SYS861:LI=TI
  245. 2862 IFTI-LI>900THENPRINT"[154] [206]O [195]ARRIER [151]":LK$="[199]":RETURN
  246. 2863 IFTI<LITHENLI=5184000-TI
  247. 2865 IF(PEEK(56577)AND64)>0THEN2862
  248. 2866 PRINT"[154] [195]ARRIER [151]"
  249. 2870 FORW=1TO1000:NEXT:SYS874
  250. 2871 A$=R$+"[200]IT [210][197][212][213][210][206] > ":GOSUB2:LI=TI
  251. 2872 GOSUB4:IFLK$="[199]"THENRETURN
  252. 2875 A$=R$+"":GOTO2
  253. 3300 A$=R$+"[197]NTER YOUR [210][197][193][204] NAME":GOSUB2:LI$=TI$:LI=TI:KH=TI:IFER>2THENLK$="[199]":RETURN
  254. 3301 A$="[198]IRST [206]AME: ":GOSUB2:GOSUB4:IFLK$="[199]"THENA$="[212]IME [197]XPIRED":GOTO2
  255. 3302 IFJ9$="[195]"THEN4205
  256. 3303 IFI$=SS$THENA$=R$+"[201]NVALID [197]NTRY"+R$:GOSUB2:ER=ER+1:GOTO3300
  257. 3304 GOSUB6:FS$=I$:IFFS$=A5$THENNU$=A5$:GOTO3315
  258. 3305 A$=" [204]AST [206]AME: ":GOSUB2:GOSUB4
  259. 3306 IFLK$="[199]"THENA$="[212]IME [197]XPIRED":GOTO2
  260. 3307 IFJ9$="[195]"THEN4205
  261. 3308 IFI$=SS$THENA$=R$+"[201]NVALID [197]NTRY"+R$:GOSUB2:ER=ER+1:GOTO3300
  262. 3309 LN$=I$:NU$=FS$+" "+LN$
  263. 3315 IFLEN(NU$)>25THENA$=R$+"[204]IMIT 25 [195]HARACTERS":GOSUB2:ER=ER+1:GOTO3300
  264. 3320 I$=NU$:GOSUB6:NU$=I$
  265. 3321 PT$=LEFT$(I$,1):PT=ASC(PT$)-192
  266. 3325 IFPT$<"[193]"ORPT$>"[218]"THENI$=SS$:GOTO3308
  267. 3326 IFLEN(NU$)<4THENNU$="123"
  268. 3327 FORW5=1TOLEN(NU$):A$=MID$(NU$,W5,1):B$=MID$(NU$,W5+1,1)
  269. 3328 IFA$=CHR$(32)ORA$=SS$THENIFW5=LEN(NU$)THEN3330
  270. 3329 IFA$=CHR$(32)ORA$=SS$THENIFB$<>CHR$(32)ANDB$<>SS$THEN3333
  271. 3330 IFA$="'"THEN3333
  272. 3331 IFA$="-"THEN3333
  273. 3332 IFA$<"[193]"ORA$>"[218]"THENA$=R$+"[201]NVALID [197]NTRY"+R$:GOSUB2:ER=ER+1:GOTO3300
  274. 3333 NEXT
  275. 3340 FORX=965TO970:A$=MID$(TI$,X-964,1):POKEX,ASC(A$):NEXT
  276. 3342 N2$="*"+LEFT$(NU$,24)
  277. 3343 FORX=971TO970+LEN(N2$):A$=MID$(N2$,X-970,1):POKEX,ASC(A$):NEXT:POKE1023,1
  278. 3344 IFLEN(NU$)=25THEN3350
  279. 3345 FORX=LEN(N2$)+971TO995:POKEX,0:NEXT
  280. 3350 GOTO20000
  281. 3420 FORWX=1TO3:A$=R$+"[208]ASSWORD > ":J9=1:GOSUB2:GOSUB6
  282. 3430 LJ$="[200]":GOSUB4:GOSUB8:GOSUB6:POKE680,0:AP$=I$
  283. 3440 IFAP$=CW$THENFORX=971TO970+LEN(NU$):POKEX,ASC(MID$(NU$,X-970,1)):NEXT:GOTO14300
  284. 3445 IFNU$=A5$THENNU$="* "+NU$:LK$="B":RETURN
  285. 3450 A$="[212]RY [193]GAIN":GOSUB2:NEXT
  286. 3461 LI=TI:LI$=TI$:A$="3 [212]RIES [207]NLY, [194]YE":SYS861:GOSUB2:LK$="B":NU$="*"+LEFT$(NU$,24)
  287. 3462 J9=0:RETURN
  288. 3999 F$="THIS 1":GOSUB5:GOTO3
  289. 4002 GOSUB8
  290. 4003 IFPA$="[207]"THENA$="[208]AGER IS [207][198][198]":GOSUB2:POKE54296,0:PA$="[198]":GOTO3
  291. 4010 PA$="[207]":POKE54296,15:IFXP>0THEN4070
  292. 4011 A$="[208]AGING [211][217][211][207][208]":GOSUB2
  293. 4020 A$="[208]LEASE CONTINUE, IF THE [211][217][211][207][208]":GOSUB2
  294. 4030 A$="IS AROUND, HE WILL ANSWER":GOSUB2
  295. 4070 A$="[208]AGER IS [207][206]":GOSUB2:GOTO3
  296. 4090 A$=R$+"[195]URRENT TIME IS "+LEFT$(TI$,2)+":"+MID$(TI$,3,2)+":"+RIGHT$(TI$,2)
  297. 4092 A$=A$+RIGHT$(D$,12)
  298. 4095 GOSUB2:IFTI<LITHENLI=LI-5184000
  299. 4096 L2=TI:TH=INT((L2-LI)/60^3):L2=L2-60^3*TH:TM=INT((L2-LI)/60^2):L2=L2-60^2*TM
  300. 4097 TS=INT((L2-LI)/60):IFTH<10THENTH$="0"+RIGHT$(STR$(TH),1):GOTO5000
  301. 4098 TH$=RIGHT$(STR$(TH),2):GOTO5000
  302. 4100 S=54272:POKES+4,0:POKES+1,WQ/8+10:POKES+5,10:POKES+4,17:RETURN
  303. 4150 IFJ9$="[195]"THENPRINT" "R$"[196]E-[193]CTIVATED":KH=TI:J9$="[213]":LD$="":RETURN
  304. 4151 PRINT" "R$"[193]CTIVATED":J9$="[195]":RETURN
  305. 4200 KH=TI:LK$="":J9$="":IFPEEK(1023)=1THEN3
  306. 4202 GOTO3300
  307. 4205 LK$="[136]":POKE54296,0:PA$="[198]":PRINT" ":A$=R$+"[195][200][193][212] [205]ODE..."+R$:GOSUB2:GOTO10000
  308. 4300 F$="@:USER LOG"+O$
  309. 4301 CLOSE2:OPEN2,8,2,F$
  310. 4302 PRINT#2,"END OF FILE"+R$:CLOSE2:RETURN
  311. 4500 CLOSE2:F$="@:USER LOG"+P$:OPEN2,8,2,F$
  312. 4501 A$=R$+"   [213]SER'S [206]AME              [207]N   [207]FF":GOSUB2
  313. 4505 A$="   ------ ----            ----- -----":GOSUB2:M3=0
  314. 4510 INPUT#2,A$:IFA$="END OF FILE"THENCLOSE2:GOTO3
  315. 4511 GOSUB2
  316. 4515 IFCT$="[193]"THENCLOSE2:GOTO3
  317. 4520 GOTO4510
  318. 5000 IFTM<10THENTM$="0"+RIGHT$(STR$(TM),1):GOTO5002
  319. 5001 TM$=RIGHT$(STR$(TM),2)
  320. 5002 IFTS<10THENTS$="0"+RIGHT$(STR$(TS),1):GOTO5004
  321. 5003 TS$=RIGHT$(STR$(TS),2)
  322. 5004 A$=" [195]ONNECT [212]IME = "+TH$+":"+TM$+":"+TS$:GOSUB2:GOTO3
  323. 5100 IFSC<1THEN870
  324. 5110 A$="[205]ESSAGE #? ":GOSUB2:GOSUB4:GOSUB6:IFI$=A5$ANDSC>1THEN5150
  325. 5120 GOSUB1:IFVAL(I$)=0THEN3
  326. 5125 CLOSE1:OPEN1,8,15,"S:E"+I$+"/ALL":CLOSE1
  327. 5140 A$="[196]ELETED":GOSUB2:GOTO3
  328. 5150 CLOSE1:CLOSE2:OPEN2,8,2,"@:SYSOP"+O$:PRINT#2,"0":CLOSE2:OPEN1,8,15,"S:ES*"
  329. 5151 MN=0:SY=0:SY$="0":CLOSE1:GOTO3
  330. 5200 IFSC<2THEN870
  331. 5210 A$=R$+"[195]LEARING [204]OG":GOSUB2:GOSUB4300:GOTO3
  332. 5300 IFSC<1THEN870
  333. 5310 A$=R$+"[211]TAND BY"+R$:GOSUB2:LV$=""
  334. 5320 LP$="[196][201][211]":GOSUB901:LP$="":IFLS=1THEN720
  335. 5321 GOTO710
  336. 5500 IFLJ$=""THENLJ$="[200]":A$=R$+"[200][193][204][198] [196]UPLEX":GOSUB2:DX=0:GOTO3
  337. 5501 LJ$="":A$=R$+"[198][213][204][204] [196]UPLEX":GOSUB2:DX=1:GOTO3
  338. 6000 IFXP=0THENXP=1:A$=R$+"[197]XPERT [205]ODE [207][206]":GOSUB2:GOTO3
  339. 6001 XP=0:A$=R$+"[197]XPERT [205]ODE [207][198][198]":GOSUB2:GOTO3
  340. 6100 A$=R$+"[211]YSTEM [212]IME [213]SED":GOSUB2
  341. 6101 IFLV$<>"[206]"THEN6103
  342. 6102 A$=R$+"[204]IMIT OF 8 [205]INUTES [198]OR [206]ON-[205]EMBERS":GOSUB2:GOTO9000
  343. 6103 L6$=RIGHT$(STR$(L6),LEN(STR$(L6))-1)
  344. 6104 L5$=RIGHT$(STR$(L5),LEN(STR$(L5))-1)
  345. 6105 IFL5=0THEN6120
  346. 6106 IFL6=0THEN6130
  347. 6110 A$=R$+"[204]IMIT OF "+L5$+" [200]OUR(S) AND "+L6$+" [205]INUTES":GOSUB2:GOTO9000
  348. 6120 A$=R$+"[204]IMIT OF "+L6$+" [205]INUTES":GOSUB2:GOTO9000
  349. 6130 A$=R$+"[204]IMIT OF "+L5$+" [200]OUR(S)":GOSUB2:GOTO9000
  350. 6200 X9=PEEK(56331):V1%=(X9AND16)/16+48:V2%=(X9AND15)+48
  351. 6203 IFX9=>128ANDVAL(CHR$(V1%)+CHR$(V2%))<12THENV1%=V1%+1:V2%=V2%+2
  352. 6204 IFV2%>57THENV1%=V1%+1:V2%=V2%-10
  353. 6205 IFX9<128ANDV1%=49ANDV2%=50THENV1%=48:V2%=48
  354. 6206 X9=PEEK(56330):V3%=(X9AND240)/16+48:V4%=(X9AND15)+48
  355. 6208 X9=PEEK(56329):V5%=(X9AND240)/16+48:V6%=(X9AND15)+48
  356. 6210 X9=PEEK(56328):TI$=CHR$(V1%)+CHR$(V2%)+CHR$(V3%)+CHR$(V4%)+CHR$(V5%)+CHR$(V6%)
  357. 6227 PO=0:IFTI<LITHENLI=LI-5184000
  358. 6228 L2=TI-LI
  359. 6229 L7=INT(L2/60^3):L8=INT((L2-L7*60^3)/60^2):L9=INT((L2-L7*60^3-L8*60^2)/60)
  360. 6230 L4=L7*60+L8:L3=L5*60+L6
  361. 6231 IFLV$<>"[206]"THEN6235
  362. 6232 IFL4>=8THENLK$="[217]":RETURN
  363. 6233 IFL4>=5THEN6300
  364. 6234 GOTO6250
  365. 6235 IFL4>=L3ANDSC<1THENLK$="[217]":RETURN
  366. 6236 IFL4>=(L3-10)ANDSC<1THEN6300
  367. 6250 IFVAL(TI$)<10000ANDPEEK(1018)<>1THENFLAG=1:GOTO7000
  368. 6253 IFTI$>"010000"THENPOKE1018,0
  369. 6260 RETURN
  370. 6300 L7$=RIGHT$(STR$(L7),LEN(STR$(L7))-1)
  371. 6305 IFLEN(L7$)=1THENL7$="0"+L7$
  372. 6310 L8$=RIGHT$(STR$(L8),LEN(STR$(L8))-1)
  373. 6315 IFLEN(L8$)=1THENL8$="0"+L8$
  374. 6320 L9$=RIGHT$(STR$(L9),LEN(STR$(L9))-1)
  375. 6325 IFLEN(L9$)=1THENL9$="0"+L9$
  376. 6350 A$=R$+"[195]ONNECT [212]IME = "+L7$+":"+L8$+":"+L9$+R$:GOTO2
  377. 7000 POKE1018,1:D$="               "
  378. 7010 IFDY$="28"ANDMO$="02"THEN7900
  379. 7011 IFDY$="29"ANDMO$="02"THENDY$="01":MO$="03":GOTO8000
  380. 7020 IFDY$="31"AND(MO$="01"ORMO$="10"ORMO$="03"ORMO$="05"ORMO$="07")THEN7800
  381. 7025 IFDY$="31"AND(MO$="08"ORMO$="12")THEN7800
  382. 7030 IFDY$="30"AND(MO$="09"ORMO$="11"ORMO$="04"ORMO$="06")THEN7800
  383. 7040 IFVAL(DY$)+1<10THENLD=1:GOTO7050
  384. 7041 LD=2
  385. 7050 DY$=RIGHT$(STR$(VAL(DY$)+1),LD):IFLD=1THENDY$="0"+DY$:GOTO8000
  386. 7051 GOTO8000
  387. 7800 TJ=VAL(MO$)+1:IFTJ<10THENLT=1:GOTO7810
  388. 7801 LT=2:GOTO7810
  389. 7810 DY$="01":MO$=RIGHT$(STR$(TJ),LT)
  390. 7811 IFLT=1THENMO$="0"+MO$
  391. 7812 IFMO$="13"THENYR$=RIGHT$(STR$(VAL(YR$)+1),4):MO$="01"
  392. 7813 GOTO8000
  393. 7900 YR=VAL(YR$):Y2=YR
  394. 7901 Y2=Y2/4
  395. 7902 YR=INT(YR/4)
  396. 7903 IFYR=Y2THENDY$="29":GOTO8000
  397. 7950 DY$="01":MO$="03"
  398. 8000 POKE999,VAL(DY$):POKE1000,VAL(MO$):YR=VAL(YR$):Y3=INT(YR/256)
  399. 8001 Y2=YR-(Y3*256):POKE1001,Y2:POKE1002,Y3:D$=D$+DY$+"/"+MO$+"/"+YR$:RETURN
  400. 9000 J9$="[213]":CLOSE1:OPEN1,8,15,"I":CLOSE1
  401. 9002 IFNU$=""THEN590
  402. 9003 GOTO878
  403. 10000 ER=0:LD$="[136]":GOSUB2150:IFLK$="[199]"THEN3
  404. 10005 IFJ9$="[213]"THEN4200
  405. 10020 IFA=8ORA=20THENPRINT"[157] [146][151] [157][157]";:IFLJ$<>"[200]"THENPRINT#5,CHR$(8);
  406. 10021 IFA$="[135]"THENGOSUB54200:IFDE$="[217]"THEN9000
  407. 10022 IFA$<>R$THEN10000
  408. 10023 IFVAL(TI$)<10000ANDPEEK(1018)<>1THENFLAG=1:GOSUB7000
  409. 10024 IFVAL(TI$)>10000THENPOKE1018,0
  410. 10030 PRINT" [146][151][157]";:GOTO10000
  411. 11000 POKE54296,15:WQ=25:GOSUB4100:FORWQ=1TO100:NEXTWQ:IFPA$<>"[207]"THENPOKE54296,0
  412. 11001 IFLJ$<>"[200]"THENPRINT#5,"";
  413. 11002 GOTO2150
  414. 13000 IFTI<LITHENLI=LI-5184000
  415. 13001 L2=TI:TH=INT((L2-LI)/60^3):L2=L2-60^3*TH:TM=INT((L2-LI)/60^2):L2=L2-60^2*TM
  416. 13002 TS=INT((L2-LI)/60):IFTH<10THENTH$="0"+RIGHT$(STR$(TH),1):GOTO13004
  417. 13003 TH$=RIGHT$(STR$(TH),2)
  418. 13004 IFTM<10THENTM$="0"+RIGHT$(STR$(TM),1):GOTO13006
  419. 13005 TM$=RIGHT$(STR$(TM),2)
  420. 13006 IFTS<10THENTS$="0"+RIGHT$(STR$(TS),1):GOTO13008
  421. 13007 TS$=RIGHT$(STR$(TS),2)
  422. 13008 T9$=TH$+":"+TM$+":"+TS$:RETURN
  423. 14000 MS$=O$:F$="7%JK":GOSUB53120:SP$="                         "
  424. 14001 IFF<20THENA$="[211]ORRY, [196]ISK [198]ULL":GOSUB2:GOTO3
  425. 14010 A$=R$+"[215]HOM IS THE MESSAGE FOR?":GOSUB2:A$=">":GOSUB2
  426. 14015 IFLV$="[206]"THENA$="[211]YSOP":GOSUB2:I$=A5$:GOTO14022
  427. 14020 GOSUB4:IFI$=SS$THENA$=R$+"[193]BORTED":GOSUB2:GOTO3
  428. 14021 IFLEN(I$)>25THENA$=R$+"[206]AME TOO [204]ONG, [212]RY [193]GAIN":GOSUB2:GOTO14010
  429. 14022 FORWW=1TOLEN(I$)
  430. 14023 IFMID$(I$,WW,1)=Q$THENI$=LEFT$(I$,WW-1)+""+RIGHT$(I$,LEN(I$)-WW)
  431. 14024 NEXT
  432. 14025 GOSUB6:IFI$=A5$THENRM$=I$:GOSUB54000:GOTO14060
  433. 14026 IFI$="[193][204][204]"ORLEFT$(I$,4)="[193][204][204] "THENRM$=I$:M2=AL:U2$="ALL":GOTO14060
  434. 14042 RM$=I$:IFRM$=NU$THEN14260
  435. 14043 PN$=LEFT$(RM$,1):IFRM$="[203][197][206] [211][208][197][206][195][197]"ANDSC<1THEN14250
  436. 14044 IFPN$<"[193]"ORPN$>"[218]"THENA$=R$+"[201]NVALID [197]NTRY":GOSUB2:GOTO14010
  437. 14045 PN=ASC(PN$)-192:IFUS(PN)=0THEN14051
  438. 14046 CLOSE2:CLOSE1:OPEN1,8,15:OPEN2,8,2,"USER LIST "+PN$+",L":PN=ASC(PN$)-192
  439. 14047 PN=ASC(PN$)-192:FORWW=1TOUS(PN):HP=INT(WW/256):LP=WW-(HP*256)
  440. 14048 PRINT#1,"P"CHR$(98)CHR$(LP)CHR$(HP)CHR$(0):INPUT#2,XG$:IFMID$(XG$,LEN(RM$)+1,1)<>""THEN14050
  441. 14049 R2$=LEFT$(XG$,LEN(RM$)):IFRM$=R2$THEN14052
  442. 14050 NEXT:CLOSE2:CLOSE1
  443. 14051 A$=R$+"[206]AME NOT [198]OUND":GOSUB2:GOTO14010
  444. 14052 CLOSE2:CLOSE1:M2$=MID$(XG$,LEN(RM$)+22,1):M2=VAL(M2$)+1:IFM2>9THEN14250
  445. 14053 U2$=MID$(XG$,LEN(RM$)+18,4)
  446. 14060 PO=0:A$=R$+"[197]NTER [212]ITLE (31 [195]HAR. [205][193][216])":GOSUB2
  447. 14070 A$="<----------------------------->":GOSUB2:J9=1:GOSUB4:I$=LEFT$(I$,31)
  448. 14072 FORWW=1TOLEN(I$)
  449. 14073 IFMID$(I$,WW,1)=Q$THENI$=LEFT$(I$,WW-1)+""+RIGHT$(I$,LEN(I$)-WW)
  450. 14074 NEXT
  451. 14080 T$=I$:EN=1:A$=" [198]ROM: "+NU$:GOSUB2
  452. 14081 A$="   [212]O: "+RM$:GOSUB2:A$="[212]ITLE: "+T$:GOSUB2
  453. 14082 A$=" [196]ATE: "+RIGHT$(D$,10)+R$:GOSUB2
  454. 14088 A$="[197]NTER [205]ESSAGE...([210][197][212][213][210][206] TO [197][216][201][212])":POKE1021,255
  455. 14089 GOSUB2:GOSUB230
  456. 14090 J9=1:LL=L-1:IFLL<1ANDMS$=",S,A"THENA$=R$+"[195]LOSING [205]ESSAGE":GOSUB2:GOTO15505
  457. 14091 IFLL<1THEN3
  458. 14100 IFC7$="[195]"THENA$="[195]ONTINUING AT LINE"+STR$(CT):GOSUB2:A$="":GOTO14089
  459. 14105 IFA$="[193]BORT"THENGOTO14120                                        
  460. 14106 IFA$="[211]END"THENIFLL>34THEN14132
  461. 14107 IFA$="[211]END"ORLK$="[199]"THEN14150
  462. 14110 GOSUB260:GOTO14100
  463. 14120 A$="[193]BORT? [193]RE YOU [211][213][210][197]? ":GOSUB2:GOSUB4:IFSS$=I$THEN14130
  464. 14121 GOSUB1:IFA$="Y"ORA$="[217]"THEN14130
  465. 14122 IFA$="N"ORA$="[206]"THEN14110
  466. 14123 A$="[217]ES OR [206]O":GOSUB2:GOTO14120
  467. 14130 J9=0:IFMS$=O$THENA$="[193]BORTED":GOSUB2:GOTO3
  468. 14131 A$="[193]BORTING":GOSUB2:CLOSE1:OPEN1,8,15,"S0:E"+M2$+"/"+U2$:CLOSE1:GOTO3
  469. 14132 A$=R$+"[195]ONTINUE AFTER [215]RITING? ":GOSUB2:GOSUB4:IFSS$=I$ANDLK$="[199]"THEN14150
  470. 14133 IFSS$=I$THEN14145
  471. 14134 GOSUB1:IFA$="Y"ORA$="[217]"THEN14145
  472. 14135 IFA$="N"ORA$="[206]"THEN14150
  473. 14136 A$=R$+"[217]ES OR [206]O":GOSUB2:GOTO14132
  474. 14145 A$=R$+"[211]AVING [208]ARTIAL [205]ESSAGE":GOSUB2:MS=1:GOTO14154
  475. 14150 J9=0:MS=0:A$=R$+"[211]AVING [205]ESSAGE":GOSUB2
  476. 14154 IFU2$="ALL"THENAM=AL+1:AL$=RIGHT$(STR$(AM),LEN(STR$(AM))-1):M2$=AL$
  477. 14155 IFRM$=A5$THENSM=SY+1:SY$=RIGHT$(STR$(SM),LEN(STR$(SM))-1):M2$="S"+SY$
  478. 14156 IFRM$<>A5$ANDU2$<>"ALL"THENM2$=RIGHT$(STR$(M2),LEN(STR$(M2))-1)
  479. 14162 CLOSE9:OPEN9,8,2,"@:E"+M2$+"/"+U2$+MS$
  480. 14170 IFMS$=O$THENPRINT#9,Q$+T$+R$,Q$+NU$
  481. 14171 IFMS$=O$THENPRINT#9,Q$+RM$+R$,RIGHT$(D$,10)
  482. 14173 FORWY=0TOLL-1:PRINT#9,Q$L$(WY):NEXT:IFMS=1THENMS$=",S,A":GOTO15500
  483. 14175 IFRM$=A5$THENSY=SM
  484. 14176 IFU2$="ALL"THENAL=AM
  485. 14179 PRINT#9,SS$:B$=NU$
  486. 14180 IFNU$=A5$THENB$="[217]OUR [206]AME - [211]YSOP":GOTO14188
  487. 14181 IFNU$="[193][211][211][212] [211][217][211][207][208] #1"THENB$="[193]SST. [211]YSOP #1 - [193]SST. [211]YSOP":GOTO14188
  488. 14182 IFNU$="[193][211][211][212] [211][217][211][207][208] #2"THENB$="[193]SST. [211]YSOP #2 - [193]SST. [211]YSOP":GOTO14188
  489. 14186 REM (EXAMPLE) IFNU$="[203][197][206] [211][208][197][206][195][197]"THENB$="[203]EN [211]PENCE - [193]UTHOR"
  490. 14188 PRINT#9,B$:PRINT#9,RIGHT$(D$,10);" AT ";LEFT$(TI$,4);"H":PRINT#9,"END"
  491. 14189 CLOSE9:A=INT(RND(.)*4)+1:A$=CB$(A):GOSUB2
  492. 14190 IFRM$=A5$THENGOSUB40060:GOTO14200
  493. 14191 IFU2$="ALL"THENGOSUB40100:GOTO14200
  494. 14192 CLOSE1:CLOSE2:OPEN1,8,15:OPEN2,8,2,"USER LIST "+PN$+",L"
  495. 14193 PRINT#1,"P"CHR$(2+96)CHR$(LP)CHR$(HP)CHR$(0)
  496. 14194 XG$=MID$(XG$,LEN(RM$)+2,20)
  497. 14195 PRINT#2,RM$+""+XG$+M2$:CLOSE2:CLOSE1
  498. 14200 A$=R$+"[205]ESSAGE SENT"+R$:GOSUB2:POKE1021,0:GOTO3
  499. 14250 A$="[213]SER ALREADY HAS 9 MESSAGES.  ([204]IMIT)":GOSUB2:A$="[193]BORTED":GOSUB2:GOTO3
  500. 14260 A$=R$+"[204]ET'S NOT GET [210][197][196][213][206][196][193][206][212]"+R$+"[193]BORTED":GOSUB2:GOTO3
  501. 14300 IFLEN(NU$)<25THENPOKEX,0
  502. 14301 LI=TI:LI$=TI$:A$="[208]ASSWORD [193]CCEPTED":GOTO2
  503. 14302 LI=TI:LI$=TI$:I$=NU$:GOSUB8:GOTO2
  504. 14310 IFMN=0THENA$="[212]HERE ARE NO MESSAGES FOR YOU":GOTO2
  505. 14311 IFMN=1THENA$="[212]HERE IS 1 MESSAGE FOR YOU":GOTO2
  506. 14312 A$="[212]HERE ARE"+STR$(MN)+" MESSAGES FOR YOU":GOTO2
  507. 15000 IFMN=0THENA$=R$+"[217]OU DON'T HAVE ANY MAIL":GOSUB2:GOTO3
  508. 15001 IFXP>0THEN15006
  509. 15002 A$=R$+"[193]FTER OPENING MAIL IT WILL BE ERASED,":GOSUB2
  510. 15003 A$="SO YOU MAY WANT TO WRITE IT DOWN":GOSUB2
  511. 15005 A$=R$+"[215]ANT TO READ IT NOW?":GOSUB2
  512. 15006 J9=1:A$="[210][197][212][213][210][206] TO READ, [193] TO [193]BORT > ":GOSUB2
  513. 15007 GOSUB4:GOSUB1:A$=LEFT$(I$,1):RM$=NU$:IFA$<>"A"ANDA$<>"[193]"THEN15009
  514. 15008 GOTO3
  515. 15009 GOSUB8:IFNU$=A5$THENU1$="999":MN$=SY$:MN=VAL(SY$):GOTO15029
  516. 15010 CLOSE2:CLOSE1:OPEN1,8,15:OPEN2,8,2,"USER LIST "+PT$+",L"
  517. 15011 FORWW=1TOUS(PT):HP=INT(WW/256):LP=WW-(HP*256)
  518. 15012 PRINT#1,"P"CHR$(2+96)CHR$(LP)CHR$(HP)CHR$(0):INPUT#2,XM$:IFMID$(XM$,LEN(RM$)+1,1)<>""THEN15017
  519. 15013 IFRM$<>LEFT$(XM$,LEN(RM$))THEN15017
  520. 15014 RM$=LEFT$(XM$,LEN(RM$)):GOTO15018
  521. 15017 NEXT:CLOSE2:CLOSE1:GOTO3
  522. 15018 CLOSE2:CLOSE1:U1$=MID$(XM$,LEN(NU$)+18,4)
  523. 15029 FORWV=1TOMN:WV$=STR$(WV):WX=LEN(WV$)-1:WV$=RIGHT$(WV$,WX):IFNU$=A5$THENWV$="S"+WV$
  524. 15030 CLOSE9:CLOSE1:OPEN1,8,15:OPEN9,8,2,"E"+WV$+"/"+U1$+P$
  525. 15035 INPUT#1,A1,A2$,A3,A4:IFA1>0THEN15041
  526. 15040 INPUT#9,TE$,T2$,T3$,T4$:A$=R$+" [198]ROM: "+T2$:GOTO15050
  527. 15041 A$="[205]ESSAGE [204]OST!":GOSUB2:NEXT:GOTO15200
  528. 15050 GOSUB2:A$="   [212]O: "+T3$:GOSUB2:A$="[212]ITLE: "+TE$:GOSUB2
  529. 15051 A$=" [196]ATE: "+T4$+R$:GOSUB2:TE$=""
  530. 15070 INPUT#9,A$:IFA$="END"ORNU$=A5$ANDCT$="[193]"THEN15100
  531. 15080 GOSUB2:GOTO15070
  532. 15100 GOSUB8
  533. 15120 A$="[[210]]E-READ OR [210][197][212][213][210][206] > ":GOSUB2
  534. 15130 GOSUB4:GOSUB6:IFLEFT$(I$,1)="[210]"THEN15030
  535. 15155 GOSUB8
  536. 15160 NEXT
  537. 15200 J9=0:POKE1021,255:CLOSE2:CLOSE1
  538. 15201 A$=R$+"[197]ND OF [205]ESSAGES"+R$:GOSUB2:IFNU$=A5$THEN3
  539. 15202 A$="[211]TAND [194]Y":GOSUB2
  540. 15203 OPEN1,8,15:OPEN2,8,2,"USER LIST "+PT$+",L"
  541. 15204 PRINT#1,"P"CHR$(2+96)CHR$(LP)CHR$(HP)CHR$(0)
  542. 15206 PRINT#2,LEFT$(XM$,21+LEN(NU$))+"0":CLOSE2:CLOSE1
  543. 15209 FORWV=1TOMN:MN$=STR$(WV):MN$=RIGHT$(MN$,LEN(MN$)-1)
  544. 15210 CLOSE9:OPEN9,8,15,"S:E"+MN$+"/"+U1$:CLOSE9:NEXT
  545. 15220 MN=0
  546. 15221 POKE1021,0:GOTO3
  547. 15300 S$="":RP$="":IFMID$(I$,2,1)<>"/"THEN15390
  548. 15305 FORX=3TOLEN(I$):IFMID$(I$,X,1)="/"THEN15312
  549. 15310 S$=S$+MID$(I$,X,1):NEXTX:GOTO15390
  550. 15312 IFS$=""THEN15390
  551. 15315 FORY=X+1TOLEN(I$):IFMID$(I$,Y,1)="/"THEN15325
  552. 15320 RP$=RP$+MID$(I$,Y,1):NEXTY:GOTO15390
  553. 15325 NL$=MID$(I$,Y+1,2):IFVAL(NL$)=0AND(NL$<>"0"ANDNL$<>"00")THEN15390
  554. 15327 NL=VAL(NL$):IFNL<0ORNL>LL-1THENA$="[207]UT OF [210]ANGE":GOSUB2:GOTO1940
  555. 15328 B$=L$(NL):SB=0
  556. 15330 FORX=1TO38:IFMID$(B$,X,LEN(S$))<>S$THENNEXTX:GOTO15360
  557. 15335 SB=SB+1:A$=LEFT$(B$,X-1)+RP$+RIGHT$(B$,LEN(B$)+1-LEN(S$)-X):B$=A$
  558. 15338 X=X+LEN(RP$)-LEN(S$):IFX<0THENX=0
  559. 15340 NEXTX
  560. 15360 IFLEN(B$)>38THENA$=R$+"[204]INE [204]ENGTH [197]XCEEDED.  [193]BORTED.":GOSUB2:GOTO1940
  561. 15370 A$=R$+"[211]UBSTITUTIONS:"+STR$(SB)+R$:GOSUB2:L$(NL)=B$
  562. 15380 A$=NL$+"> "+B$:GOSUB2:GOTO1940
  563. 15390 A$=R$+"[211]YNTAX [197]RROR":GOSUB2:GOTO1940
  564. 15400 IFL>LL-1THENA$=R$+"[201]NVALID [204]INE [206]UMBER":GOSUB2:GOTO1940
  565. 15405 FORY=LTOLL-1:A$=RIGHT$(STR$(Y),2)+"> "+L$(Y):GOSUB2:IFCT$="[193]"THEN1940
  566. 15410 NEXT:GOTO1940
  567. 15420 IFL>LL-1THEN15400
  568. 15423 GOSUB8
  569. 15424 FORY=LTOLL-1:A$=L$(Y):GOSUB2:IFCT$="[193]"THEN1940
  570. 15430 NEXT:GOTO1940
  571. 15440 IFL>LL-1THENA$="[204]INE [207]UT OF [210]ANGE":GOSUB2:GOTO1940
  572. 15451 IFL=LL-1THENL$(L)=" ":LL=LL-1:A$=R$+"[204]INE [196]ELETED":GOSUB2:GOTO1940
  573. 15452 FORY=LTOLL-2:L$(Y)=L$(Y+1):NEXT:L$(Y)="":LL=LL-1:A$="[196]ELETED":GOSUB2:GOTO1940
  574. 15460 IFLL-1>48THENA$="[206]O [211]PACE [204]EFT":GOSUB2:GOTO1940
  575. 15462 A$="[201]NSERT [194][197][198][207][210][197] WHICH LINE >":GOSUB2:GOSUB4:IFI$=SS$THEN1940
  576. 15470 GOSUB1:L=FNA(X):IFL>LL-1THENA$="[204]INE [207]UT OF [210]ANGE":GOSUB2:GOTO1940
  577. 15472 LL=LL+1:FORY=LL-1TOL+1STEP-1:L$(Y)=L$(Y-1):NEXT:L$(L)=" "
  578. 15474 A$="[204]INE [193]DDED":GOSUB2:GOTO1940
  579. 15500 CLOSE9:A$="":GOSUB2:FORWY=LL-5TOLL:A$=L$(WY):GOSUB2:NEXTWY
  580. 15501 A$="[195]ONTINUE":GOTO14089
  581. 15505 CLOSE9:OPEN9,8,2,"@:E"+M2$+"/"+U2$+MS$:GOTO14175
  582. 15510 B$=RIGHT$(I$,LEN(I$)-1):IFLEN(B$)>2THENA$=R$+"[201]NVALID [204]INE [206]UMBER":GOSUB2:GOTO1940
  583. 15515 IFB$=SS$THEN1940
  584. 15520 IFB$=""THEN15550
  585. 15530 L=VAL(B$):IFA$="[198]"THEN15420
  586. 15531 IFA$="[204]"THEN15400
  587. 15532 IFA$="[197]"THEN1983
  588. 15533 IFA$="[196]"THEN15440
  589. 15550 IFA$="[198]"THENA$=R$+"[198]ROM [204]INE >":GOSUB2:GOSUB4:I$="[198]"+I$:A$="[198]":GOTO15510
  590. 15551 IFA$="[204]"THENA$=R$+"[198]ROM [204]INE >":GOSUB2:GOSUB4:I$="[204]"+I$:A$="[204]":GOTO15510
  591. 15552 IFA$="[196]"THENA$=R$+"[196]ELETE [204]INE >":GOSUB2:GOSUB4:I$="[196]"+I$:A$="[196]":GOTO15510
  592. 15553 A$=R$+"[197]DIT [204]INE >":GOSUB2:GOSUB4:I$="[197]"+I$:A$="[197]":GOTO15510
  593. 15600 GETA$:IFA$>""THENKH=TI:LK$="":GOTO15609
  594. 15602 GET#5,A$:IF(PEEK(673)AND1)=0THENRETURN
  595. 15603 IFA$=""THEN15600
  596. 15605 KH=TI:LK$="":A=ASC(A$):IFA>127THENA$=CHR$(A-128)
  597. 15606 IFA$=""ORA$=""THENCT$="[193]":C9$="[193]":POKE53280,1:POKE53280,11:RETURN
  598. 15607 IFA$=CHR$(83)ORA$=CHR$(115)THENPOKE53280,2:GOTO15615
  599. 15608 GOTO15600
  600. 15609 IFA$="S"ORA$="[211]"THENPOKE53280,2:GOTO15615
  601. 15610 IFA$=""ORA$=""THENCT$="[193]":C9$="[193]":POKE53280,1:POKE53280,11:RETURN
  602. 15611 GOTO15600
  603. 15615 GETA$:IFA$>""THEN15624
  604. 15616 IFTI-KH>7200THENA$=CHR$(65):LK$="[199]":GOTO15618
  605. 15617 GET#5,A$:IFA$=""THEN15615
  606. 15618 A=ASC(A$):IFA>127THENA$=CHR$(A-128)
  607. 15619 IFA$=CHR$(65)ORA$=CHR$(97)THENCT$="[193]":POKE53280,11:RETURN
  608. 15620 IFA$=CHR$(67)ORA$=CHR$(99)THENPOKE53280,11:RETURN
  609. 15621 GOTO15615
  610. 15624 IFA$="A"ORA$="[193]"THENCT$="[193]":POKE53280,11:RETURN
  611. 15625 IFA$="C"ORA$="[195]"THENPOKE53280,11:RETURN
  612. 15630 GOTO15615
  613. 15700 A$=R$+"[211]TAND BY, [210]ESETING [195]ONNECT [212]IME":GOSUB2:PK=PEEK(1023):LP$="[196][201][211]"
  614. 15701 GOSUB901:LI$=TI$:LI=TI:KH=TI
  615. 15702 FORX=965TO970:A$=MID$(TI$,X-964,1):POKEX,ASC(A$):NEXT:A$="[136]":J9$="[195]"
  616. 15703 POKE1023,PK:PRINT" [146][151][157]";:GOTO2151
  617. 15800 A$="[208]ASSWORD? ":GOSUB2:GOSUB4:I$=LEFT$(I$,6):GOSUB6
  618. 15810 IFI$="[208][193][211][211][215][196]"THENII$="[217]":REM SECRET BULLETIN PASSWORD...(SHIFTED)
  619. 15820 RETURN
  620. 15910 IFCN=0THENCN=1:A$=R$+"[195]ONTINUOUS":GOSUB2:GOTO770
  621. 15920 CN=0:A$=R$+"[206]ON-[195]ONTINUOUS":GOSUB2:GOTO770
  622. 15930 IFSC<>2THEN870
  623. 15931 POKE1021,255:KH=TI:A$=R$+"1 - [214]ALIDATE [196]ISK":GOSUB2
  624. 15932 A$="2 - [211]CRATCH ALL [196] [198]ILES":GOSUB2
  625. 15933 A$="3 - [197]DIT A [213]SER'S [208]ASSWORD":GOSUB2:A$="4 - [214]ALIDATE A [206]EW [213]SER":GOSUB2
  626. 15934 A$="[200] - [212]HIS [204]IST":GOSUB2:A$="[210][197][212][213][210][206] - [197]XIT":GOSUB2
  627. 15935 A$=R$+"[195]: ":GOSUB2:GOSUB4:I$=LEFT$(I$,1)
  628. 15936 IFI$=SS$THEN3
  629. 15937 IFI$="H"ORI$="[200]"THEN15931
  630. 15938 IFVAL(I$)=1THENA$=R$+"[215]ORKING":GOSUB2:CLOSE1:OPEN1,8,15,"V":CLOSE1:GOTO15931
  631. 15940 IFVAL(I$)=2THENA$=R$+"[211]CRATCHING":GOSUB2:CLOSE1:OPEN1,8,15,"S:D*":CLOSE1:GOTO15931
  632. 15945 IFVAL(I$)=3THEN15964
  633. 15946 IFVAL(I$)=4THEN22000
  634. 15950 A$=R$+"[201]NVALID"+R$:GOSUB2:GOTO15934
  635. 15964 A$=R$+"[206]AME OF [213]SER > ":GOSUB2:GOSUB4
  636. 15965 IFLEN(I$)>25THENA$=R$+"[201]NVALID":GOSUB2:GOTO15935
  637. 15966 IFI$=SS$THEN15935
  638. 15967 GOSUB6:A$=R$+"[211]TAND BY":GOSUB2
  639. 15968 PT$=LEFT$(I$,1):IFPT$<"[193]"ORPT$>"[218]"THENA$=R$+"[201]NVALID":GOSUB2:GOTO15935
  640. 15970 CLOSE2:CLOSE1:OPEN1,8,15:OPEN2,8,2,"USER LIST "+PT$+",L"
  641. 15971 IFUS(ASC(PT$)-192)=0THEN15979
  642. 15972 FORWW=1TOUS(ASC(PT$)-192)
  643. 15973 HP=INT(WW/256):LP=WW-(256*HP)
  644. 15974 PRINT#1,"P"CHR$(2+96)CHR$(LP)CHR$(HP)CHR$(0)
  645. 15975 INPUT#2,A$:N9$=LEFT$(A$,LEN(I$))
  646. 15976 IFMID$(A$,LEN(I$)+1,1)<>""THEN15978
  647. 15977 IFI$=N9$THENXG$=A$:GOTO15980
  648. 15978 NEXTWW
  649. 15979 A$="[213]SER [196]OESN'T [197]XIST":GOSUB2:CLOSE2:CLOSE1:GOTO15935
  650. 15980 PD$=MID$(XG$,LEN(I$)+2,6):A$="[195]URRENT [208]ASSWORD: "+PD$:GOSUB2:RM$=I$
  651. 15981 A$=R$+"[195]HANGE TO > ":GOSUB2:GOSUB4:IFI$=SS$THENCLOSE2:CLOSE1:GOTO15935
  652. 15982 IFLEN(I$)<>6THENA$=R$+"[201]NVALID [204]ENGTH":GOSUB2:GOTO15981
  653. 15983 FORX=1TO6:A$=MID$(I$,X,1)
  654. 15984 IFA$=Q$ORA$=","ORA$=":"THENA$=R$+"[201]NVALID [195]HARACTERS":GOSUB2:GOTO15981
  655. 15985 GOSUB6:A$=R$+"[195]HANGING PASSWORD TO: "+I$:GOSUB2
  656. 15986 XG$=RM$+""+I$+RIGHT$(XG$,15)
  657. 15988 PRINT#1,"P"CHR$(2+96)CHR$(LP)CHR$(HP)CHR$(0):PRINT#2,XG$:CLOSE2:CLOSE1:GOTO15935
  658. 16000 IFLEN(I$)>4THENI=-1:GOTO16020
  659. 16001 J9=1:I=VAL(MID$(I$,2,LEN(I$)-1)):GOSUB8
  660. 16003 IFAL=0THENA$=R$+"[212]HERE [193]RE [206]O [208]UBLIC [205]ESSAGES":GOSUB2:GOTO3
  661. 16015 IFI=0ANDLEFT$(I$,1)="[210]"THENWV=AL+1:SN=-1:GOTO16029
  662. 16016 IFI=0ANDLEFT$(I$,1)="[198]"THENWV=0:SN=1:GOTO16029
  663. 16020 IFI>ALORI<0THENA$="[201]LLEGAL [205]ESSAGE [206]UMBER":GOSUB2:CLOSE2:CLOSE1:GOTO3
  664. 16025 A2=I:WV=A2+1:IFLEFT$(I$,1)="[210]"THENSN=-1:GOTO16029
  665. 16026 SN=1:WV=A2-1
  666. 16029 WV=WV+SN:WV$=STR$(WV):WX=LEN(WV$)-1:WV$=RIGHT$(WV$,WX)
  667. 16030 IFWV=0ORWV>ALTHENWV=1:SN=-1:GOTO16110
  668. 16031 CLOSE9:CLOSE1:OPEN1,8,15:OPEN9,8,2,"E"+WV$+"/"+"ALL"+P$
  669. 16035 INPUT#1,A1,A2$,A3,A4:IFA1>0THEN16041
  670. 16040 INPUT#9,TE$,T2$,T3$,T4$:A$=R$+" [198]ROM: "+T2$:GOTO16049
  671. 16041 A$="[205]ESSAGE WAS [196]ELETED":GOSUB2:NM=WV+SN:IFNM>1ORNM<ALTHEN16029
  672. 16042 CLOSE9:CLOSE2:CLOSE1:GOTO3
  673. 16049 ZZ$=A$:A$=R$+"[205]ESSAGE [206]UMBER"+STR$(WV):GOSUB2:IFCT$="[193]"THEN16100
  674. 16050 A$=ZZ$:GOSUB2:IFCT$="[193]"THEN16100
  675. 16051 A$="   [212]O: "+T3$:GOSUB2:IFCT$="[193]"THEN16100
  676. 16052 A$="[212]ITLE: "+TE$:GOSUB2:IFCT$="[193]"THEN16100
  677. 16053 A$=" [196]ATE: "+T4$+R$:GOSUB2:IFCT$="[193]"THEN16100
  678. 16070 INPUT#9,A$:IFA$="END"THEN16100
  679. 16080 GOSUB2:IFCT$="[193]"THEN16100
  680. 16090 GOTO16070
  681. 16100 IFA$=""THENWV=1:SN=-1:GOTO16110
  682. 16102 GOSUB8
  683. 16103 GOSUB6200:IFLK$="[217]"THEN6100
  684. 16110 IFWV=1ANDSN=-1ORWV=ALANDSN=1THENGOSUB8:CLOSE9:CLOSE2:CLOSE1:KH=TI:GOTO3
  685. 16115 IFCN=1THEN16029
  686. 16120 A$=R$+"[204]AST ="+STR$(WV):GOSUB2:IFXP=1THENA$="[210]> ":GOSUB2:KH=TI:GOTO16130
  687. 16121 A$="[210]ETURN, -, +, # OR [193] > ":GOSUB2
  688. 16130 GOSUB4:GOSUB1:IFA$="[193]"ORA$="A"ORLK$="[199]"ORJ9$="[195]"THENWV=1:SN=-1:GOTO16110
  689. 16131 IFA$="+"THENSN=1:GOTO16160
  690. 16132 IFA$="-"THENSN=-1:GOTO16160
  691. 16133 IFLEN(I$)>3THENA$="[201]NVALID [210]ESPONSE":GOSUB2:GOTO16120
  692. 16134 IFI$=SS$THEN16029
  693. 16156 I=VAL(I$):IFI<1ORI>ALTHENA$="[201]NVALID [205]ESSAGE [206]UMBER":GOSUB2:GOTO16120
  694. 16157 WV=I-SN
  695. 16160 GOTO16029
  696. 16200 IFLS=1ANDRIGHT$(I$,4)="1200"THENI$="1200":GOTO16216
  697. 16205 IFLEN(I$)>4THENI$=LEFT$(I$,7):I$=RIGHT$(I$,3):GOTO16216
  698. 16210 A$=R$+"[194]AUD [210]ATE (300-450) > ":GOSUB2:GOSUB4:IFLK$="[199]"THEN3
  699. 16216 IFI$="1200"ANDLS=1THENBR=1200:GOTO16220
  700. 16217 IFLEN(I$)<>3THENA$=R$+"[201]NVALID":GOSUB2:GOTO3
  701. 16218 X=VAL(I$):BR=X:IFX<300ORX>450THENI$="":GOTO16216
  702. 16220 A$=R$+"[195]HANGING [194]AUD [210]ATE TO "+I$:GOSUB2
  703. 16230 X=1.02273E6/BR:HB=INT(X/256):LB=X-HB*256:POKE665,LB:POKE666,HB:GOTO3
  704. 20000 IFNU$=A5$THENU1$="999":MN$=SY$:MN=VAL(SY$):CW$="[211][217][211][207][208]'[211] [208][193][211][211][215][207][210][196]":GOTO3420
  705. 20001 REM SYSOPS PASSWORD MUST BE IN ALL CAPS WITH UN-SHIFTED SPACES.
  706. 20002 IFLEFT$(NU$,5)=A5$ORRIGHT$(NU$,5)=A5$THENNU$=A5$:GOTO20000
  707. 20004 ET=0
  708. 20005 CLOSE2:CLOSE1:OPEN1,8,15:OPEN2,8,2,"USER LIST "+PT$+",L"
  709. 20009 IFUS(ASC(PT$)-192)=0THEN20021
  710. 20010 FORWW=1TOUS(ASC(PT$)-192)
  711. 20014 HP=INT(WW/256):LP=WW-(256*HP)
  712. 20015 PRINT#1,"P"CHR$(2+96)CHR$(LP)CHR$(HP)CHR$(0)
  713. 20016 INPUT#2,A$:N9$=LEFT$(A$,LEN(NU$))
  714. 20017 IFMID$(A$,LEN(NU$)+1,1)<>""THEN20020
  715. 20018 IFNU$=N9$THEN21000
  716. 20020 NEXTWW:IFET=1THENRETURN
  717. 20021 CLOSE2:CLOSE1:FORWX=1TO3:A$=R$+NU$+R$+"[201]S THIS YOUR [210][197][193][204][160]NAME? ":GOSUB2:GOSUB4
  718. 20022 GOSUB6:I$=LEFT$(I$,1):IFI$="[217]"ORI$=SS$THEN20025
  719. 20023 IFI$="[206]"THENNU$="":GOTO3300
  720. 20024 A$=R$+"[217]ES OR [206]O":GOSUB2:NEXTWX:LK$="B":RETURN
  721. 20025 CLOSE2:CLOSE1:NU$="-"+LEFT$(NU$,24):LV$="[206]"
  722. 20026 FORX=971TO970+LEN(NU$):A$=MID$(NU$,X-970,1):POKEX,ASC(A$):NEXT:RETURN
  723. 21000 IFET=1THENA$=R$+"[213]SER [197]XISTS":GOSUB2:ET=2:RETURN
  724. 21001 POKE1021,255:XZ$=MID$(A$,LEN(N9$)+2,21)
  725. 21005 U1$=RIGHT$(XZ$,5):U1$=LEFT$(U1$,4)
  726. 21006 A$=MID$(XZ$,7,10):A$=R$+"[204]AST [207]N: "+A$:GOSUB2
  727. 21010 I$=LEFT$(XZ$,6):GOSUB6:CW$=I$:MN$=RIGHT$(XZ$,1):XZ$=CW$+RIGHT$(D$,10)+U1$+MN$
  728. 21012 PRINT#1,"P"CHR$(2+96)CHR$(LP)CHR$(HP)CHR$(0):SP$="                       "
  729. 21013 A$=N9$+""+XZ$:PRINT#2,A$:CLOSE2:CLOSE1
  730. 21020 MN=VAL(MN$):POKE1021,0
  731. 21030 GOTO3420
  732. 22000 ET=1:A$=R$+"[198][213][204][204] [206]AME > ":GOSUB2:GOSUB4
  733. 22001 IFI$=SS$THEN15935
  734. 22002 GOSUB6:IFLEN(I$)>25THENA$=R$+"[206]AME TOO LONG":GOSUB2:GOTO22000
  735. 22005 PT$=LEFT$(I$,1):IFPT$<"[193]"ORPT$>"[218]"THENA$=R$+"[201]NVALID [206]AME":GOSUB2:GOTO22000
  736. 22006 RM$=I$:R2$=NU$:NU$=I$:GOSUB20005:NU$=R2$:IFET=2THEN22000
  737. 22100 A$=" [208]ASSWORD > ":GOSUB2:GOSUB4
  738. 22141 IFI$=SS$THEN22000
  739. 22142 IFLEN(I$)<>6THENA$=R$+"6 [195]HARACTERS":GOSUB2:GOTO22100
  740. 22143 FORX=1TO6:A$=MID$(I$,X,1):IFA$=":"ORA$=","ORA$=""ORA$=Q$THENA2$="[198]"
  741. 22144 IFA2$="[198]"THENA$="[201]NVALID [195]HARACTERS":GOSUB2:A2$="":GOTO22100
  742. 22145 NEXTX
  743. 22150 GOSUB6:PD$=I$:MN$="0"
  744. 22151 A$=R$+"    [206]AME: "+RM$:GOSUB2:A$="[208]ASSWORD: "+PD$:GOSUB2
  745. 22152 A$=R$+"[195]ORRECT? ":GOSUB2
  746. 22153 GOSUB4:I$=LEFT$(I$,1):GOSUB6
  747. 22155 IFI$="[217]"THENJ9=0:GOTO22159
  748. 22156 IFI$="[206]"THENCLOSE2:CLOSE1:GOTO22000
  749. 22157 GOTO22152
  750. 22159 A$="[211]TAND BY":GOSUB2:PT=ASC(PT$)-192:US(PT)=US(PT)+1:GOSUB22900
  751. 22210 XZ$=PD$+RIGHT$(D$,10)+US$+"0"
  752. 22230 CLOSE2:CLOSE1:OPEN1,8,15:OPEN2,8,2,DR$+":USER LIST "+PT$+",L"
  753. 22232 SP$="                       "
  754. 22235 HP=INT(US(PT)/256):LP=US(PT)-(HP*256)
  755. 22240 PRINT#1,"P"CHR$(2+96)CHR$(LP)CHR$(HP)CHR$(0)
  756. 22245 PRINT#2,LEFT$(SP$,25-LEN(RM$))+RM$+""+XZ$:CLOSE2:CLOSE1
  757. 22250 OPEN2,8,2,"@0:US,S,W":FORW=1TO26:A$=STR$(US(W)):A$=RIGHT$(A$,LEN(A$)-1)
  758. 22251 PRINT#2,A$+CHR$(13):NEXTW:CLOSE2:GOTO15935
  759. 22900 A$=STR$(US(PT)):IFUS(PT)<10THENUS$=PT$+"00"+RIGHT$(A$,1):RETURN
  760. 22901 IFUS(PT)<100THENUS$=PT$+"0"+RIGHT$(A$,2):RETURN
  761. 22902 US$=PT$+RIGHT$(A$,3):RETURN
  762. 22999 IFA$="[140]"THEN23003
  763. 23000 IFA$="[135]"THENPRINT" ":GOSUB54200:A$=CHR$(0):PRINT" [146][151][157]";:IFDE$="[217]"THEN9000
  764. 23001 IFA$="[134]"THEN23010
  765. 23002 GOTO2157
  766. 23003 PRINT" ":PRINT"[210]AISE TO [211][217][211][207][208][160][211][212][193][212][213][211]? ";
  767. 23004 GETB$:IFB$=""THEN23004
  768. 23005 IFB$="Y"THENSC=2:LV$="":PRINT"[217]ES":PRINT" [146][151][157]";:GOTO2150
  769. 23006 IFB$="N"THENPRINT"[206]O":PRINT" [146][151][157]";:GOTO2150
  770. 23007 GOTO23004
  771. 23010 PRINT" ":PRINT"1 - [213][208]LOAD   2 - [196][207][215][206]LOAD   3 - [197]XIT":PRINT"1, 2[160]OR 3 > ";
  772. 23011 GETB$:IFB$=""THEN23011
  773. 23012 IFB$="1"ORB$="2"THENPRINTB$:GOTO23015
  774. 23013 IFB$="3"THENPRINT"[197]XIT":PRINT" [146][151][157]";:GOTO2150
  775. 23014 GOTO23011
  776. 23015 F$="":PRINT"[198]ILENAME";:INPUTF$:IFF$=""THENA$="[137]":GOTO2153
  777. 23016 IFB$="2"THEN23050
  778. 23020 CLOSE1:CLOSE2:OPEN1,8,15:OPEN2,8,2,"@:"+F$:GOSUB9:IFA>0THEN23015
  779. 23030 SYS49173:POKE51227,1:SYS49164
  780. 23035 IFPEEK(512)=1THENCLOSE2:CLOSE1:PRINTR$"[193]BORT":A$="[137]":GOTO2153
  781. 23040 SYS49173:POKE51224,255:SYS49158:CLOSE2:CLOSE1:PRINTR$"[195]OMPLETE":A$="[137]":GOTO2153
  782. 23050 SYS49173:SYS49161
  783. 23060 IFPEEK(512)=1THENPRINTR$"[193]BORTED":A$="[137]":GOTO2153
  784. 23070 IFPEEK(51227)=1THENPRINTR$+"[210]ECEIVING [208][210][199] [198]ILE"+R$
  785. 23080 IFPEEK(51227)=2THENPRINTR$+"[210]ECEIVING [211][197][209] [198]ILE"+R$
  786. 23090 IFPEEK(51227)=3THENPRINTR$+"[210]ECEIVING [215][208][210] [198]ILE"+R$
  787. 23100 ZZ$=MID$("PSP",PEEK(51227),1)
  788. 23110 T$=","+ZZ$+",W"
  789. 23120 OPEN2,8,2,"@:"+F$+T$:FORX=1TO1300:NEXT:PRINT:SYS61310
  790. 23130 SYS49173:SYS49155:CLOSE2:POKE1021,0:POKE668,PEEK(667)
  791. 23140 PRINTR$"[195]OMPLETE":A$="[137]":GOTO2153
  792. 31000 A$=R$+"  [213]SER [204]ISTING [205]ODE":GOSUB2
  793. 31010 A$="  ---- ------- ----"+R$:GOSUB2
  794. 31090 GOTO31200
  795. 31100 A$=R$+"             [213]SER'S [206]AME    [204]AST [207]N":GOSUB2:M3=0
  796. 31105 SP$="                                      ":CLOSE1:CLOSE2
  797. 31110 A$="             ------ ----    ---- --"+R$:GOSUB2:W2=PN-1
  798. 31119 W2=W2+1:IFW2>26THEN31140
  799. 31120 IFUS(W2)=0THEN31119
  800. 31121 OPEN1,8,15:OPEN2,8,2,"USER LIST "+CHR$(W2+192)+",L"
  801. 31122 FORWW=1TOUS(W2)
  802. 31123 HP=INT(WW/256):LP=WW-(256*HP):PRINT#1,"P"CHR$(2+96)CHR$(LP)CHR$(HP)CHR$(0):INPUT#2,XG$
  803. 31124 FORW3=1TO26:IF""<>MID$(XG$,W3,1)THENNEXT
  804. 31125 W3=W3-1:A$=LEFT$(XG$,W3):A$=LEFT$(SP$,25-LEN(A$))+A$
  805. 31130 A$=A$+".."+MID$(XG$,W3+8,10):GOSUB2
  806. 31131 IFCT$="[193]"THEN31140
  807. 31135 NEXTWW:CLOSE2:CLOSE1:GOTO31119
  808. 31140 CLOSE2:CLOSE1:GOSUB8:GOTO3
  809. 31200 A$="[208]ATTERN [205]ATCH FROM...[[193]-[218]]":GOSUB2
  810. 31210 A$=">":GOSUB2:GOSUB4:IFI$=SS$THENA$="[193]BORTED":GOSUB2:GOTO3
  811. 31220 GOSUB6:PN$=LEFT$(I$,1)
  812. 31221 IFPN$<"[193]"ORPN$>"[218]"THENA$=R$+"[201]NVALID [206]AME"+R$:GOSUB2:GOTO31200
  813. 31222 PN=ASC(PN$)-192:GOTO31100
  814. 40010 CLOSE15:OPEN15,8,2,"@:US"+O$:FORWW=1TO26:US=US(WW):US$=STR$(US)
  815. 40020 US$=RIGHT$(US$,LEN(US$)-1):PRINT#15,US$+R$:NEXT:CLOSE15
  816. 40030 US=0:FORX=1TO26:US=US+US(X):NEXT
  817. 40060 OPEN15,8,2,"@:SYSOP"+O$:PRINT#15,SY$:CLOSE15:PRINT" [211]YSOP HAS "SY$" ":RETURN
  818. 40100 A$="[212]HIS WILL BE MESSAGE NUMBER"+STR$(AL)+R$:GOSUB2
  819. 40101 OPEN15,8,2,"@:ALL COUNT"+O$:PRINT#15,AL$:CLOSE15:RETURN
  820. 50000 J9=1:POKE1021,0
  821. 50001 FORW=1TO2000:NEXT
  822. 50009 A$=R$+"[208]RESS [210][197][212][213][210][206] FOR [199]ENERAL [196]ISTRIBUTION":GOSUB2
  823. 50010 A$="[207]R [197]NTER A 6 [195]HARACTER [208]ASSWORD":GOSUB2:FORW=1TO10:GET#5,A$:NEXT
  824. 50020 A$="[208]ASSWORD?"+R$+">":GOSUB2:GOSUB4:GOSUB8
  825. 50025 IFI$=SS$THENPW$="NONAME":ZZ$=MID$("[208][211][215]",PEEK(51227),1)+"-"+BL$:RETURN
  826. 50030 IFLEN(I$)<>6THENA$=R$+"6 [195]HARACTERS [208]LEASE":GOSUB2:GOTO50020
  827. 50031 FORX=1TO6:IFMID$(I$,X,1)=","ORMID$(I$,X,1)=":"THENA2$="[198]"
  828. 50032 IFA2$="[198]"THENA$="[201]NVALID, [206]O ,'S OR :'S ALLOWED":GOSUB2:A2$="":GOTO50020
  829. 50033 NEXT
  830. 50040 GOSUB6:PW$=I$:ZZ$=MID$("[208][211][215]",PEEK(51227),1)+"*"+BL$:RETURN
  831. 51000 A$=R$+"[196]ELETE A [208]ROGRAM"+R$+"----------------":GOSUB2
  832. 51010 A$=R$+"[208]ROGRAM'S [206]AME?":GOSUB2:A$=">":GOSUB2:GOSUB4
  833. 51020 GOSUB8:IFI$=SS$THENA$="[193]BORTED":GOSUB2:GOTO3
  834. 51025 I$=LEFT$(I$,16):GOSUB6
  835. 51027 A$="[211]TAND BY"+R$+"[211]EARCHING [204]IST [198]OR "+I$:GOSUB2
  836. 51029 CLOSE2:CLOSE1
  837. 51030 OPEN1,8,15:OPEN2,8,2,"PRG COUNT"+P$:INPUT#2,M3$:M3=VAL(M3$)
  838. 51031 M3=M3+1:CLOSE2:OPEN2,8,2,"PRG LIST,L":IFM3=1THENCLOSE2:CLOSE1:GOTO51070
  839. 51032 M3=M3-1:HP=INT(M3/256):LP=M3-(HP*256)
  840. 51033 PRINT#1,"P"CHR$(96+2)CHR$(LP)CHR$(HP)CHR$(0):SF$=""
  841. 51040 INPUT#2,A$:IFA$="DELETED"THEN51050
  842. 51041 BL$=LEFT$(A$,5):FORW=12TO27:Z1$=MID$(A$,W,1):IFZ1$=""THEN51043
  843. 51042 SF$=SF$+Z1$:NEXT
  844. 51043 PW$=MID$(A$,6,6):TY=LEN(A$)-12-LEN(SF$)
  845. 51044 TY$=RIGHT$(A$,TY)
  846. 51049 IFI$=SF$THENCLOSE2:CLOSE1:GOTO51090
  847. 51050 IFM3=1THENCLOSE2:CLOSE1:GOTO51070
  848. 51060 GOTO51032
  849. 51070 RF=INT(RND(.)*3)+1:A$=CB$(RF):GOSUB2
  850. 51080 A$="[193]BORTED":GOSUB2:GOTO3
  851. 51090 A$="[198]OUND "+I$:GOSUB2
  852. 51091 IFSC>0THEN51099
  853. 51092 IFLEFT$(NU$,15)=TY$THEN51099
  854. 51093 A$="[217]OU DIDN'T [213][208][204][207][193][196] THIS [208]ROGRAM, [211]ORRY":GOSUB2
  855. 51094 A$=R$+"[193]BORTED":GOSUB2:GOTO3
  856. 51099 A$="[196]ELETING":GOSUB2
  857. 51100 CLOSE2:CLOSE1:OPEN1,8,15:OPEN2,8,2,"PRG LIST,L"
  858. 51110 PRINT#1,"P"CHR$(96+2)CHR$(LP)CHR$(HP)CHR$(0)
  859. 51120 PRINT#2,"DELETED":CLOSE2:CLOSE1
  860. 51125 A$="R:D"+LEFT$(I$,15)+"="+I$
  861. 51130 OPEN1,8,15,A$:CLOSE1
  862. 51140 A$="[198]ILE [196]ELETED":GOSUB2:GOTO3
  863. 52300 A$=R$+"[206]AME OF [208]ROGRAM"+R$+">":GOSUB2
  864. 52320 GOSUB4:IFI$=SS$THENA$="[193]BORTED":GOSUB2:GOTO3
  865. 52325 GOSUB1:IFLEN(I$)>16THENI$=LEFT$(I$,16)
  866. 52326 GOSUB6:F$=I$:S$=I$
  867. 52327 GOSUB8
  868. 52329 A$="[211]TAND BY":GOSUB2
  869. 52330 CLOSE1:CLOSE2:OPEN1,8,15:OPEN2,8,2,"PRG COUNT"+P$:INPUT#2,M3$:M3=VAL(M3$)
  870. 52331 M3=M3+1:CLOSE2:OPEN2,8,2,"PRG LIST,L":IFM3=1THENCLOSE2:CLOSE1:GOTO52370
  871. 52332 M3=M3-1:HP=INT(M3/256):LP=M3-(HP*256)
  872. 52333 PRINT#1,"P"CHR$(96+2)CHR$(LP)CHR$(HP)CHR$(0):SF$=""
  873. 52340 INPUT#2,A$:IFA$="DELETED"THEN52350
  874. 52341 BL$=LEFT$(A$,5):FORW=12TO27:Z1$=MID$(A$,W,1):IFZ1$=""THEN52343
  875. 52342 SF$=SF$+Z1$:NEXT
  876. 52343 PW$=MID$(A$,6,6):TY=LEN(A$)-12-LEN(SF$)
  877. 52344 TY$=RIGHT$(A$,TY)
  878. 52349 IFS$=SF$THENCLOSE2:CLOSE1:GOTO52391
  879. 52350 IFM3=1THENCLOSE2:CLOSE1:GOTO52370
  880. 52360 GOTO52332
  881. 52370 A$=R$+F$+" = [198]ILE [206]OT [198]OUND":GOSUB2
  882. 52380 A$="[193]BORTED":GOSUB2:GOTO3
  883. 52391 GOSUB55002:IFPW$="NONAME"THEN52400
  884. 52392 A$="[211]ECURITY [208]ASSWORD (6 [195]HARACTERS)":GOSUB2:A$=">":GOSUB2:GOSUB4
  885. 52393 I$=LEFT$(I$,6):GOSUB6:IFI$=PW$THENA$="[208]ASSWORD [193]CCEPTED":GOTO52400
  886. 52394 A$="[201]NVALID [208]ASSWORD"+R$:GOSUB2:GOTO3
  887. 52400 F$=S$:GOSUB53120
  888. 52410 F=INT(100*F/(BR/50))/100:A$="[212]RANSMIT [212]IME:"+STR$(F)+" [205]INUTE(S)"
  889. 52420 GOSUB2:A$="[194]LOCK [211]IZE ="+STR$(BS)+R$:GOSUB2
  890. 52450 A$="[215]AITING [198]OR [211]TART [211]IGNAL":GOSUB2
  891. 52451 A$="[193]=[193]BORT  [194]=[195]HANGE [194]LOCK [211]IZE":GOSUB2:LJ$="[200]"
  892. 52455 SU$="[207][203]":GOSUB54300:IFSU$<>"[207][203]"ANDSU$<>"[206]"THENA$=SU$:GOSUB2:GOTO3
  893. 52456 IFSU$="[206]"THENGOSUB8:GOTO52450
  894. 52460 I$=F$
  895. 52461 A$=LEFT$(BL$,1):IFA$="[211]"THENSA=2:TP=2:GOTO52470
  896. 52462 IFA$="[215]"THENSA=0:TP=3:GOTO52470
  897. 52463 SA=0:TP=1
  898. 52470 CLOSE2:OPEN2,8,SA,"@:"+I$
  899. 52480 SYS49173:POKE51227,TP:SYS49164:IFPEEK(512)=1THENCLOSE2:GOTO52595
  900. 52490 SYS49173:POKE51224,BS:SYS49158:CLOSE2:FORW=1TO5000:NEXT
  901. 52495 A$=R$+SU$:GOSUB2:GOTO3
  902. 52500 F$="7%JK":GOSUB53120
  903. 52501 IFF<50THENA$="[211]ORRY, [196]ISK [198]ULL":GOSUB2:GOTO3
  904. 52506 A$=R$:FF$=STR$(F):F=LEN(FF$)-1
  905. 52507 A$=A$+RIGHT$(FF$,F)
  906. 52508 A$=A$+" [194]LOCKS [198]REE":GOSUB2
  907. 52510 A$=R$+"[206]AME OF [208]ROGRAM":GOSUB2:A$=">":GOSUB2
  908. 52520 GOSUB4:IFI$=SS$THENA$="[193]BORTED":GOSUB2:GOTO3
  909. 52521 IFLEN(I$)>16THENI$=LEFT$(I$,16)
  910. 52522 FORX=1TO16:A$=MID$(I$,X,1):IFA$="*"ORA$=","ORA$=":"ORA$=Q$THENA2$="[198]"
  911. 52524 IFA2$="[198]"THENA$="[201]NVALID [198]ILENAME":GOSUB2:A2$="":GOTO52510
  912. 52526 NEXT:GOSUB6:F$=I$:S$=I$
  913. 52529 A$="[211]TAND BY":GOSUB2
  914. 52530 CLOSE1:CLOSE2:OPEN1,8,15:OPEN2,8,2,"PRG COUNT"+P$:INPUT#2,M3$:M3=VAL(M3$)
  915. 52531 M3=M3+1:CLOSE2:OPEN2,8,2,"PRG LIST,L":IFM3=1THENCLOSE2:CLOSE1:GOTO52570
  916. 52532 M3=M3-1:HP=INT(M3/256):LP=M3-(HP*256)
  917. 52533 PRINT#1,"P"CHR$(96+2)CHR$(LP)CHR$(HP)CHR$(0):SF$=""
  918. 52540 INPUT#2,A$:IFA$="DELETED"THEN52550
  919. 52541 BL$=LEFT$(A$,5):FORW=12TO27:Z1$=MID$(A$,W,1):IFZ1$=""THEN52543
  920. 52542 SF$=SF$+Z1$:NEXT
  921. 52543 PW$=MID$(A$,6,6):TY=LEN(A$)-12-LEN(SF$)
  922. 52544 TY$=RIGHT$(A$,TY)
  923. 52549 IFF$=SF$THENCLOSE2:CLOSE1:A$="[198]ILE [197]XISTS":GOSUB2:SU$=A$:GOTO3
  924. 52550 IFM3=1THENCLOSE2:CLOSE1:GOTO52570
  925. 52560 GOTO52532
  926. 52570 A$="[215]AITING [198]OR [211]TART [211]IGNAL":GOSUB2
  927. 52571 A$="[193]=[193]BORT":L9$="[213]":GOSUB2:LJ$="[200]"
  928. 52575 SU$="[207][203]":GOSUB54300:L9$="":IFSU$<>"[207][203]"ANDSU$<>"[206]"THENA$=SU$:GOSUB2:GOTO3
  929. 52576 IFSU$="[206]"THENGOSUB8:GOTO52570
  930. 52580 I$=F$:IFDX=1THENLJ$=""
  931. 52590 SYS49173:SYS49161
  932. 52595 IFPEEK(512)=1THENA$="[193]BORTED":SU$=A$:GOSUB2:GOTO3
  933. 52596 IFPEEK(51227)=1THENPRINTR$+"[210]ECEIVING [208][210][199] [198]ILE"+R$
  934. 52597 IFPEEK(51227)=2THENPRINTR$+"[210]ECEIVING [211][197][209] [198]ILE"+R$
  935. 52598 IFPEEK(51227)=3THENPRINTR$+"[210]ECEIVING [215][208][210] [198]ILE"+R$
  936. 52600 ZZ$=MID$("PSP",PEEK(51227),1)
  937. 52609 T$=","+ZZ$+",W"
  938. 52610 OPEN2,8,2,"@:"+I$+T$:FORX=1TO1300:NEXT:PRINT:SYS61310
  939. 52620 SYS49173:SYS49155:CLOSE2:POKE1021,255:POKE668,PEEK(667)
  940. 52621 F$=I$:GOSUB53120:BL$=RIGHT$(STR$(F),LEN(STR$(F))-1)
  941. 52622 IFLEN(BL$)<3THENBL$="0"+BL$:GOTO52622
  942. 52623 GOSUB50000:POKE1021,255
  943. 52624 CLOSE2:OPEN2,8,2,"PRG COUNT"+P$:INPUT#2,PY$:PY=VAL(PY$)+1:CLOSE2
  944. 52625 CLOSE1:OPEN1,8,15:OPEN2,8,2,"PRG LIST,L":HP=INT(PY/256):LP=PY-(256*HP)
  945. 52626 PY$=STR$(PY):PY$=RIGHT$(PY$,LEN(PY$)-1):PRINT#1,"P"CHR$(96+2)CHR$(LP)CHR$(HP)CHR$(0)
  946. 52627 A$=ZZ$+PW$+F$+""+LEFT$(NU$,15):PRINT#2,A$:CLOSE2:CLOSE1
  947. 52628 OPEN2,8,2,"@:PRG COUNT"+O$:PRINT#2,PY$:CLOSE2:POKE1021,0
  948. 52629 A$=R$+"[196]ONE":GOSUB2:GOTO3
  949. 52630 A$="PRG COUNT"+P$:CLOSE2:OPEN2,8,2,A$
  950. 52631 INPUT#2,M4$:CLOSE2:M4=VAL(M4$):M3=0
  951. 52632 SP$="                            "
  952. 52634 CLOSE1:CLOSE2:A$="PRG LIST,L":OPEN1,8,15:OPEN2,8,2,A$
  953. 52635 A$=R$+" [194]LKS [208]ROGRAM [206]AME     [211]ENDER":GOSUB2:M4=M4+1:IFCT$="[193]"THEN52710
  954. 52636 A$=" ---- ------------     ------":GOSUB2:GOTO55000
  955. 52637 M4=M4-1:HP=INT(M4/256):LP=M4-(HP*256)
  956. 52638 PRINT#1,"P"CHR$(96+2)CHR$(LP)CHR$(HP)CHR$(0):SF$=""
  957. 52640 INPUT#2,A$:IFA$="DELETED"THEN52695
  958. 52641 BL$=LEFT$(A$,5):FORW=12TO27:Z1$=MID$(A$,W,1):IFZ1$=""THEN52643
  959. 52642 SF$=SF$+Z1$:NEXT
  960. 52643 PW$=MID$(A$,6,6):TY=LEN(A$)-12-LEN(SF$)
  961. 52644 TY$=RIGHT$(A$,TY)
  962. 52689 BL$=BL$+" ":SF$=SF$+LEFT$(SP$,17-LEN(SF$)):TY$=LEFT$(TY$,15)
  963. 52690 A$=BL$+SF$+TY$:GOSUB2
  964. 52691 IFCT$="[193]"THENCLOSE2:CLOSE1:GOTO52710
  965. 52695 IFM4=1THENCLOSE2:CLOSE1:GOTO52710
  966. 52700 GOTO52637
  967. 52710 CLOSE2:CLOSE1:F$="7%JK":GOSUB53120
  968. 52730 FF$=STR$(F):F=LEN(FF$)-1
  969. 52740 A$=RIGHT$(FF$,F)+" [194]LOCKS [198]REE":GOSUB2:GOTO3
  970. 52930 A$=ES$:GOSUB2:CLOSE2:GOTO52300
  971. 53120 CLOSE10:FF$="$:"+F$:OPEN10,8,0,FF$
  972. 53130 N$=CHR$(0)
  973. 53140 GET#10,A$,A$,A$,A$,A$,A$
  974. 53150 GET#10,A$:IFA$<>""GOTO53150
  975. 53160 GET#10,A$,A$,A$,B$
  976. 53170 F=ASC(A$+N$)+ASC(B$+N$)*256:CLOSE10:RETURN
  977. 54000 M2=VAL(SY$):U2$="999":RETURN
  978. 54100 A$="[215]ELCOME TO THE"+R$:GOSUB2
  979. 54104 A$=N5$:GOSUB2:A$=N6$:GOSUB2:GOSUB8
  980. 54110 A$=" [207]PERATED [194]Y: [217]OUR [206]AME":GOSUB2
  981. 54111 A$="[193]SST. [211]YSOPS: [193]SST [211]YSOP #1":GOSUB2
  982. 54112 A$="              [193]SST [211]YSOP #2":GOSUB2
  983. 54120 A$="  [215]RITTEN [194]Y: [203]EN [211]PENCE":GOSUB2
  984. 54121 A$="              [202]AMES [205]AC[198]ARLANE":GOSUB2
  985. 54130 A$=" [208]ROTOCOL [194]Y: [211]TEVE [208]UNTER":GOSUB2
  986. 54140 A$="[214]ERSION [196]ATE: [205]AY 5TH 1985":GOTO2
  987. 54200 PRINTR$+"[194]OOT HIM? ";
  988. 54210 GETA$:IFA$=""THEN54210
  989. 54220 IFA$="N"ORA$="[206]"THENPRINT"[206]O":DE$="":A$="":RETURN
  990. 54230 IFA$="Y"ORA$="[217]"THENPRINT"[217]ES":DE$="[217]":A$="":RETURN
  991. 54240 GOTO54210
  992. 54300 GOSUB2150:IFLK$="[199]"THEN3
  993. 54305 IFTI-KH>10800THENLK$="[199]":A$="[204]OOKS LIKE YOU FELL ASLEEP":GOSUB2:GOTO3
  994. 54310 IFA$="A"ORA$="[193]"THENSU$=R$+"[193]BORTED":RETURN
  995. 54320 IFA$="[213]"ORA$="[208]"ORA$="[215]"ORA$="[211]"THENSU$=R$+"[206][197][215] [208]ROTOCOL [207][206][204][217]!":RETURN
  996. 54330 IFA$="[199]"ORA$="[207]"THENRETURN
  997. 54335 IFA$="B"ORA$="[194]"THENIFL9$<>"[213]"THEN54350
  998. 54340 GOTO54300
  999. 54350 A$=R$+"[195]URRENT [194]LOCK [211]IZE ="+STR$(BS):GOSUB2
  1000. 54355 IFDX=1THENLJ$=""
  1001. 54360 A$="[206]EW [194]LOCK [211]IZE (40-255)? ":GOSUB2:GOSUB4:I$=LEFT$(I$,3)
  1002. 54370 IFI$=SS$THENA$=R$+"[206]O [195]HANGE":GOSUB2:SU$="[206]":RETURN
  1003. 54380 GOSUB1:BS=INT(VAL(I$)):IFBS<40ORBS>255THENBS=255
  1004. 54390 A$=R$+"[194]LOCK [211]IZE ="+STR$(BS):GOSUB2:SU$="[206]":RETURN
  1005. 55000 IFM4=1ORCT$="[193]"THENCLOSE2:CLOSE1:GOTO52710
  1006. 55001 GOTO52637
  1007. 55002 IFSC<1THENRETURN
  1008. 55003 IFPW$="NONAME"THENRETURN
  1009. 55004 A$="[208]ASSWORD IS "+PW$+"":GOSUB2:PW$="NONAME":RETURN
  1010. 55010 IFXP=1THENRETURN
  1011. 55011 A$=R$+"[208]RESS [211] TO [211]TOP A LISTING":GOSUB2
  1012. 55012 A$="[193]FTER [211]TOPPED, [195] WILL [195]ONTINUE,":GOSUB2
  1013. 55013 A$="[193] WILL [193]BORT"+R$:GOTO2
  1014. 55020 IFNU$=A5$THENSC=2:REM SYSOP
  1015. 55030 IFNU$="[193][211][211][212] [211][217][211][207][208] #1"ORNU$="[193][211][211][212] [211][217][211][207][208] #2"THENSC=1
  1016. 55031 REM SHIFT ASST'S NAMES WITH                 UNSHIFTED SPACES
  1017. 55032 REM (EXAMPLE) IFNU$="[203][197][206] [211][208][197][206][195][197]"THENSC=1
  1018. 55040 REM SC=1 GIVES EVERY COMMAND BUT  "[197][196][201][212]" AND "[195][204]", SC=2 GIVES FULL ACCESS
  1019. 55045 REM STANDARD SYSOP COMMANDS ARE   "[204][199]" AND "[196][205]"
  1020. 55046 REM "[204][199]" - LOG ON AS ANOTHER USER
  1021. 55047 REM "[196][205]" - DELETE PUBLIC MESSAGE
  1022. 55048 REM OTHER "[193][194][201][204][201][212][201][197][211]" EXIST, BUT  THOSE ARE THE "COMMANDS"
  1023. 55050 RETURN
  1024. 55099 REM"[141]                     [208][204][197][193][211][197] [146]
  1025. 55100 [143]" (null)END A $5.00 DONATION TO THE
  1026. 55101 REM" [200]OSPITAL FOR [211]ICK [195]HILDREN
  1027. 55102 [143]" ASCOUNDATIONS STR$EPT.
  1028. 55103 REM" 555 [213]NIVERSITY [193]VE.
  1029. 55104 [143]" (null)ORONTO, (null)NTARIO
  1030. 55105 REM" [205]5[199] 1[216]8
  1031. 55106 [143]" (416) 598-6166
  1032. 55107 REM" [198]OUNDATIONS/[196]ONATIONS [206]UMBER
  1033. 55108 [143]"
  1034. 55109 REM"    [212]HANKS,
  1035. 55110 [143]"       (null)EN (null)PENCE
  1036.